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Einführung 


Von wichtigen internationalen Normungsorganisationen sind 
Bemühungen bekannt, einen einheitlichen, höheren BASIC-Dialekt 
zu entwickeln. Nach Verabschiedung solch eines Standards und 
weltweiter Akzeptierung wäre es erheblich einfacher als heute, 
BASIC-Programme zwischen Benutzern verschiedener Rechner aus- 


zutauschen. 


Allerdings können Programme, die den Sprachenumfang des neuen 
Standards nutzen, nicht auf Systeme übertragen werden, die mit 
derzeitigen Quasi-Standardversionen arbeiten (wie z.B. Apple-, 
CBM- oder Tandy-BASIC). Denn nur wenige Hersteller bieten 
schon jetzt erweiterte Dialekte, die etwa den Vorstellungen 
genügen, wie sie beispielsweise vom ANSI (American National 
Standards Institute) entwickelt wurden. Am ehesten entspricht 
schon das von Hewlett-Packard für die 80er Systeme entwickelte 
"Erweitere BASIC" den neuen Festlegungen wie z.B. 


CALL "Unterprogrammname" - Aufruf eines Unterprogramms 
mit seinem Namen, 


IF...THEN...ELSE... - zweiseitige Programm- 


verzweigung, 
PRINT USING... - formatierte Ausgabe. 


Drei weitere Anweisungsgruppen zeichnen die Programmiersprache 
BASIC der Systeme wie HP-85 aus: 


- Graphik-Anweisungen zur Ausgabe von Meß- oder Berechnungs- 
ergebnissen und Beschriftung von Diagrammen, z.B. 
SCALE, XAXIS, YAXIS, PLOT, DRAW, MOVE, LABEL, PEN 


- Befehle zur Behandlung von Hardware- und Software- 
Interrupts, z.B. 
ON ERROR. ..GOSUB (oder GOTO) 
ON INTR... 
ON KEY... 
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ON TIMER... 
- Befehle zur Bedienung des IEC-Busses, z.B. 
ENTER, OUTPUT,...USING..., 


Im Beitrag von W. Wendt und H. Schumny werden diese Möglich- 
keiten weitgehend genutzt. Die konkrete Anwendung aus der 
nuklear-physikalischen Praxis kann sozusagen als Demonstration 
dafür angesehen werden, was künftige BASIC-Versionen erlauben. 
Die Kehrseite ist, daß solch ein Programm nur mit zumutbarem 
Aufwand auf solche Rechner umsetzbar ist, deren Interpretierer 
ähnliche Fähigkeiten aufweisen. Eine Alternative könnte sein, 
die Interrupt- und Ein-/Ausgabe-Instruktionen in Form von 
Maschinenroutinen (Assemblerroutinen) selbst zu erzeugen. Dies 


ist eine weit verbreitete Praxis bei Rechnern der "CBM-Klasse". 


Das Programm zur Zahnprofilberechnung (ebenfalls für HP-85 ge- 
schrieben) ist problemlos auf viele andere Rechner übertragbar. 
Es kann lediglich nötig werden, z.B. den Arcus-Sinus mit Hilfe 
anderer trigonometrischer Funktionen darzustellen. Auf die 
graphische Ausgabe der Zahnprofile muß möglicherweise verzich- 
tet werden (bei z.B. Commodore-Rechnern ohne Graphik-Zusatz). 
Dann allerdings sollte darüber nachgedacht werden, welchen 
Wert solche Computeranwendungen für Konstrukteure haben. 


Eine hochaktuelle und leicht übertragbare Anwendung stellt 

W. Hürlimann mit der Berechnung der Kollektorfläche einer 
Solaranlage vor. Interessant am abgedruckten Programm ist, daß 
die LET-Anweisung verwendet wird und alle Anweisungszeilen 
konsequent mit Leerzeichen (blanks) geschrieben sind. Dies 
entspricht den für das neue ANSI-BASIC entwickelten Regeln. 


Das Paket von H. Richter ist für Luxor ABC-80 bzw. BASF 7100 
geschrieben. Die vier Programme sind sehr ausführlich doku- 
mentiert und bereiten auch vom BASIC-Dialekt her keine 
Schwierigkeiten, so daß die Übernahme jederzeit möglich sein 
sollte. Lediglich die Anweisung ON ERROR GOTO muß evtl. er- 
setzt werden, und die "fortschrittliche" Möglichkeit durch 
IF-THEN-ELSE ist meist aufzulösen. 
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Eine mehr "spielerische" Anwendung ist der Dauerkalender von 
A. Stößer. Durch Aufzeigen verschiedener Darstellungsmöglich- 
keiten und "Ausbaustufen" werden jedoch interessante Hinweise 
für Veränderungen oder Weiterentwicklungen gegeben. Bis auf 
die FORMAT-Anweisung des verwendeten Rechners HP 9830 dürfte 


auch hier die Übernahme einfach sein. 


Eine Stundenplangestaltung für Schüler ist natürlich primär 

für Lehrer interessant. Die Arbeit von P. Frahm kann aber 
dennoch mit breiterem Interesse rechnen, weil es sich im 
Grunde um eine allgemein verwendbare Dateiverarbeitung handelt. 
Anstelle von Schülern, Kursen, Fächerkombinationen sind durch- 
aus beliebige andere "Kriterien" vorstellbar. Die für einen 
Wang-Rechner geschriebene Software ist nach geringfügigen 
Änderungen z.B. auch auf einem CBM-Rechner lauffähig. 
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Programmierung von Schnittstellen und Daten- 
transfer mit Tischrechnern HP-83/85 
von Wilfried Wendt und Harald Schumny 


1 AUFGABENSTELLUNGEN 


Bei einer Klasse von Experimenten - z.B. in der Atomphysik - 
werden oft sehr viele Meßdaten mit Hilfe von Teilchenzählern 
oder - wenn die Energieverteilung (das Energiespektrum) 
interessiert - mit einem Vielkanalanalysator (MCA, Multi 
Channel Analyzer) gesammelt. 


In einem zweiten Schritt müssen diese Meßdaten aus den Zählern 
gelesen bzw. aus dem Arbeitsspeicher des MCA auf einen Daten- 
träger transferiert werden. Ein nächster Schritt ist häufig, 
die Daten aufzubereiten, mit einem Bildschirm, Drucker oder 
Graphik-Plotter zu begutachten und daraus Schlüsse für die 


Weiterführung des Experiments zu gewinnen. 


Zu bewältigen sind oft 3192 (8K) Meßkanäle, die jeweils 3 bis 
8 Informationsbytes umfassen, d.h. bei einem Spektrentransfer 
sind bis zu 64Kbyte Daten zu senden bzw. zu empfangen. Eine 
typische Konfiguration für diesen Fall ist mit Bild ı 
gezeigt. Die Verbindung zwischen Meßgerät und Controller 
(HP-83) ist seriell ausgeführt (V.24) mit bis zu 4800 Bd 
Übertragungsrate. Datenträger und Ausgabegeräte sind über den 
IEC-Bus angeschlossen. Bei Bedarf läßt sich über die V.24- 
Schnittstelle eine Verbindung zu einem anderen Computer her- 
stellen, der z.B. übergeordnete Auswertearbeiten durchzuführen 
hat. 


2 PROGRAMMBESCHREIBUNG 


Das BASIC-Programm ist modular aufgebaut und darum relativ 
leicht zu verstehen sowie, bei wechselnden Anforderungen, zu 
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Bild 1 


















Vielkonal- 
onolysator 
(8K Kanäle) 


Doppelfloppy- 


Laufwerk 


Der Tischrechner 
HP-83 als Controller 
für den Daten- 
transfer über 
serielle (V.24) 
bzw. parallele ae 
(IEC-Bus) Kanäle 





Kassetten- 
recorder 
(Tek 4924) 





evtl. 


8 Stellen BCD 

oder Drucker 
16 bit Ein-/Ausgang (MX-80) 
und 


16 bit Ausgong 
für Steuerungen en 


I evt. | 


| Plotter 
L-_- _-J 


DLR LLLLLLDD DL LL DLR CRLLLLLLLLLLE 


ändern bzw. zu ergänzen. Es wird im folgenden so detailliert 
beschrieben, daß die Übertragung der HP-spezifischen Anwei- 
sungen in andere BASIC-Dialekte möglich wird, wenn der 
benutzte Rechner eine entsprechende Schnittstellenbehandlung 
ermöglicht. Es muß hier aber doch gesagt werden, daß solche 
den Normen entsprechenden Prozeduren wie SRQ (Service Request) 
und SPOLL (Serial Poll) nicht bei allen Tischcomputern reali- 
siert sind. Solche Geräte sollte man für die Verwendung in 


der Meßtechnik und Prozeßdatenverarbeitung ablehnen. 


2.1 Struktur des Gesamtprogramms 


Das Programmpaket für den Betrieb des in Bi 2Lrd> 1 
gezeigten Systems wird von Kassette oder Flexible Disk 
(Floppy) geladen. Der Hauptprogrammblock erzeugt definierte 
Anfangszustände und verweist über den Bildschirm in Menü- 
technik auf die möglichen Betriebsarten, die per Interrupt 
(SRQ) oder die zugeordneten Programmtasten (Soft Keys) in 
Form von Unterprogrammen aufgerufen werden. Das Struktogramm 
Bi ld 2 macht dieses Verfahren deutlich. Nach Rückkehr 
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aus dem jeweiligen Unterprogramm werden erneut auf dem Bild- 


schirm die wahlmöglichkeiten (Menü) angezeigt. 






Reset : IEC- Bus 


Initialisiere: Intr.-SRQ, -Keyl, -Key2, -Key3, -Key4, -Key5, -Keyb, -Key7, -Keyß 


wiederhole bis Programmabbruch 


Bild 2 Struktogramm des Programmpaketes DATENTRANSFER 


2.2 Anweisungsliste des Programmes DATENTRANSFER 





CLEAR 9 DISF "#% DATENTRANSFER xx" 
DISF aaeaakakaakalalkalealealekalkalkalk ale alla ak" 
DISF 
DISF "Ki1...Daten Vielkanal » Kassette" 
DISF "E2...Daten Kassette > Drucker" 
DISF "Kk „File suchen" 
DISF "E4...File anlegen" 
DISF "KS...Daten Kassette > Bildschirm" 
DISF "K6...Daten Kassette » V24" 
DISF "E7...File loeschen" 
DISF "k8...HEADER lesen" 
RESET 7 
ON INTR 7 GÜSUR 810 
ENAELE INTR 7:8 
ON KEY# 1,"Da-V.k" GOSURB Z10 
ON KEY# 2, "Da-k:Dbr" GÜSUR 450 
ON KEY# 2,"Fı-such" GÜSUR 500 
ON KEY# 4, "Fi-anl" GÜSUR 540 
5 ON KEY# 5, "Da-k:Bi" GOSURB 1100 
ON KEY# 6, "Da-k.>24" GUOSUB 1200 
ON KEY# 7,"Fi-loe" GOÜSUR 820 
ON KEY# 8, "HE-les" GÜOSUR 690 
EEY LABEL 
50TO Zu0 
CLEAR "Aa UNTERFRÜGRAMM DATEN VIELE. KASSETTE  RIAKaKSKaK Ak 
DIM D$C264] 
IORBUFFER D$ 
RESET 10 
DISF "Ist Vıelkanal ausgabebereit J/N"; 
INFUT A$ 
IF A$#"J" THEN 420 
DISF "Ist Band am Fileanfang J/N"; 
INFUT Al% 
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256 IF Al$#"J" THEN 420 

260 DISF "Datenkopf eingeben!" 

270 INFUT B$ 

275 CONTROL 10,2 3 12 

278 CONTROL 10,2: 4 

280 QUTFUT 10 USING "#," ; "R" 

290 ENTER 10 USING "#,n" : R$ 

291 WAIT 10 

292 CONTROL 10,23 0 

CONTROL 10,9 : 69 

IF NUM(R$)#6 THEN 4.5 

DISF 9 DISF "%% Datenuebertragung laeutt ##" 
SEND 7 3 UNL MTA LISTEN & SCG 12 
OUTFUT D*& USING "k" : B$ 
CONTROL 7,16 3 0 
CONTRÜL 10,11 35 2 
CONTROL 10,12 3 60 

ON EOT 10 GOTO 748 

TRANSFER 10 TO D$ INTR ı DELIM &0 

ASSERT 10:34 

FOR Z=1 TO 95957 SIENA 

NE 2 

ASSFERT 10:0 

TRANSFER D$ TO 7 FHS 

STATUS 10,11: 0 

IF 9=47 THEN G50TO 410 

GOTO 776 

410 SEND 7 ; LISIEN 4 SCG 2 DATA CHRECLTD UNL 

420 DISF 3 DISF "#4 Datenuebertraqung beendet #%*" 

422 CONTRÜL 7,16 3 2 

425 RESET 10 

430 KEY LABEL 

4:5 REEF 

440 RETURN aaalaaalalaaiak. UNTERFRÜGRAMM-ENDE ala aa ar 

450 CLEAR "aaglaaaddick UNTERFRÜGRAMM DATEN KASSETTE DRUCKER Wakaakkaık 
460 DISF "Ist Rekor.+ Druck. startklar ”° J/N"; 

47. INFUT M$ 

aac IF M$#"J" THEN 496 

490 SEND 7 3 UNL. TALF & SCG 17 LISTEN 4 

4971 RESUME 7 

496 KEY LABEL 

497 RETURN "Saalalaldalaaiar UNTERFROGRAMM ENDE Kr kaaaıaa 

500 CLEAR " aaalaaalalaick UNTERFRÜGKAMM FILE SUCHEN WRRHHKaNKK 
505 DISF "Suche File Nr."; 

510 INFUT C$ 

520 SEND 7 s UNL. MTA LISTEN & SCG 27 DATA C$ EOL UNL 

525 KEY LABEI. 

530 RETURN "eaalaaalaaak UNTERFRÜGRAMM ENDE Ueaaackak 

540 CLEAR Yeaoaaakckk UNTERFRÜGRAMM FILE ANLEGEN dick 
550 DISF "Ist Band rıchtig posıtıoniert ° J/N" 

560 INFUT F$ 

570 IF F$#"J" THEN 610 

580 DISF 9 DISF "Gebe eın: Fıle-Anzahl;-Laenge"; 

590 INFUT 6% 

su0 SEND 7 3 UNL MTA LISTEN 4 SCG 28 DATA 6% EOL UNL. 

610 KEY LABEL 

620 RETURN " eadlalalalgialck UNTERFROGRAMM ENDE rear 

630 CLEAR "siaglaalalaiaick UNTERFROGRAMM FILE LÜESCHEN each 
640 DISF "Welches Fıle soll geloescht werden ? Nr."; 

650 INFUT L$ 

664 SEND 7 ; UNL MTA LISTEN 6 SCG 7 DATA L$ EOL UNL 

670 KEY LABEL 

680 RETURN "aaalakaaaaicak UNTERFRÜGRAMM ENDE Kaakkaaaak 

690 CLEAR "dalaaaaakıck UNTERFROGRAMM HEADER LESEN Kkkkaaaık 
700 DISF "Ist Band rıchtıg posıtıoniert 7 J/N": 

710 INFUT H% 

720 IF H$#"J" THEN 790 

750 SEND 7 3 UNL MLA TAL+ 6 SCG 9 

760 ENTER 7 : #$ 

770 SEND 7 ; UNI UNL 

780 DISF » DISF E$% 

790 KEY LABEL 

800 RETURN alalalalalalolalak. UNTERFROGRAMM ENDE aaa 





HP-85 Schnittstellen 


810 
820 
gro 
840 
845 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1070 
1040 
1050 
1060 
1065 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1170 
1180 
1190 
ZOO 
1205 
1210 
1220 
1270 
1240 
250 
1260 
1270 
1275 
1276 
1277 
1280 
1285 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
12390 
1400 
1410 
1420 
1420 
1440 
1450 
1460 
1470 
1480 
1490 


8 





CLEAR eaaiaaakaakk UNTERFROGRAMM SKOFIRRIRaaaK 

DISF "%% Rekorder meldet Fehler x*%x" \ 

F=SFOLL (706) 

DISF 9 DISF "SFOLL Status-Eyte =";F 

IF BIT(F,1)=1 THEN DISF "Cassetten-Ende erreicht" 
IF BIT(F,2)=1 THEN DISF "Rek.ist OFF LINE" 

IF BIT(F,Z2)=1 THEN DISF "Rek.in ALT MODE" 

IF BIT(F,4)=1 THEN DISF "Rek.ist besetzt" 

IF BIT(F,S)#1 THEN 1040 

SEND 7 3 UNL MLA TALK 6 SCG Fü 

ENTER 7; E 

SEND 7 3; UNT UNL 

IF E=1 THEN DISF "Bereichs-Fehler" 

IF E=2 THEN DISF "File nicht gefunden" 

IF E=3 THEN DISF "Format-Fehler" 

IF E=4 THEN DISF "Ungueltiger Zugriff" 

IF E=5 THEN DISP "File nicht geoeffnet" 

IF E=64 THEN DISF "10x Lesefehler" 

IF E=7 THEN DISF "Kassette nicht eingelegt" 

IF E=8 THEN DISF "Falsche Rekordlaenge" 
IF E=9 THEN DISF "Schreibsperre eingeschaltet" 
IF E=10 THEN DISF "Schreibfehler" 
IF E=11 THEN DISF "Ende der angelegten File" 
IF E=12 THEN DISP "File-Ende erreicht" 


STATUS 7,1; I 
ENABLE INTR 7:8 
KEY LABEL 

BEEP 


RETURN agaaakalaalak. UNTERFROGRAMM ENDE RIO KK 

CLEAR aaaalalakaıck UNTERFROGRAMM DATEN KASSETTE > BILDSCHIRM Krkkkakaık 
DIM U$C71) 

OFF INTR 7 

DISF "Ist Kassette am richtigen Fileanfang positioniert ? J/N" 
INFUT S$ 

IF 5S$%"J" THEN GOTO 1280 

SEND 7 3 UNL MLA TALK & SCG 17 

ENTER 7 USING "%,7E" 3 U$ 

IF LEN(U$)=69 THEN GOTO 1220 

DISF U$ 

STATUS 7,2 3 V 

IF V>=72 THEN 1270 ELSE 1180 

DISP U$L[L1,28] ‘ 

DISF U$C29,56] 

DISP U$[57,69) 

WAIT Z00 

GOTO 1180 

DISF "Ende der Daten" 

BEEF 

DISF @ DISF "Frogramm durch druecken von "cont’ fortsetzen" 
FAUSE 

KEY LABEL 

ON INTR 7 GOSUR 810 

RETURN "eg gaalakalaak. UNTERFROGRAMM ENDE FIRE IKAK IK KR 

CLEAR ! ka kkkkk UNTERFROGRAMM DATEN CASSETTE : V24 KKARKKkaak 
DIM U1$L[L71] 

OFF INTR 7 

RESET 10 

DISF "Ist Kassette am richtigen Fileanfang positioniert 7 J/N" 
INFUT S1$ 

IF S1$x:"J" THEN GOTO 1550 

DISF "Mit welcher Baudrate soll gesendet werden °" 

DISF 9 DISF " 64= 700 RBaud" 

DISF "11=2400 Baud" 

DISF "17=4800 Raud" 

DISF "15=9600 Raud" 

INFUT 52 

CONTROL 10,3 : S2 

DISF "Soll Fin S(CTS) die Datenausgabe steuern ?T J/N" 

INFUT SZ$ 

IF 52%.:"J" THEN GOTO 1480 

CONTROL 10,5 ; 16 

SEND 7 3 UNL MLA TALK 6 SCG 13 

ENTER 7 USING "%,%E" 3 U1$ 
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1500 QUTFUT 10 USING "K" ; U1$ 

1510 STATUS 7,2 : v1 

1520 IF V1:72 THEN GOTO 1490 

1530 DISF "Ende der Datenuebertragung" 

1540 REEF 

1542 DISF D DISF "Frogramm durch druecken von "cont’ fortsetzen" 
1544 PAUSE 

1550 KEY LABEL 

1560 ON INTR 7 GOSUR 810 

1570 RETURN ! ERDE EKK UNTERFROGRAMM ENDE IRRIEIKOK IE K 


2.3 Kommentierung der einzelnen Instruktionen 


Die Moduln des Programmpaketes sind in Tabelle 1 


zusammengestellt. Die einzelnen Funktionsblöcke werden aus 
dem Hauptprogramm (Zeilen 16 bis 266) aufgerufen. Die einzelnen 


Programminstruktionen sind in der nachfolgenden Aufstellung 
kommentiert. 


Tabelle 1 Moduln des Programms DATENTRANSFER 


Zeilen- Schnitt- 


Hauptprogramm mit Menü 






















Daten vom Meßgerät (Vielkanal- 
analysator) auf Datenträger 
(Kassette) 


Daten von Kassette auf Drucker 


ausgeben 


Datenblock (File) auf Kassette 


suchen 





File anlegen 


File löschen 










Filekopf (Header) lesen 


81ıd - 1676 


Service Request (SRQ) 


1166 - 1296 | Daten von Kassette auf Bildschirm 
anzeigen 
1366 - 1576 | Daten von Kassette über serielle 





Schnittstelle (V.24) ausgeben 
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Zeilen- 
nummern 


10,26 
30 - 90 
1 

11 

12 


130 - 130 
19 


200 


216 
215,216 
226 

236 - 256 
252 - 256 
266,276 
275 

278 

280 


296,291,366 
292 


294 


315 


32 
33 
332 - 334 


336 
338 


339 
340,345 
348 
356 


352,354 
410 


422 
425 


436 - 446 


= 


491 - 497 


- 1126 


116 
1130 - 1150 
1170,1186 


1265,1216 
1226 - 1246 
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456 - 486 Recorder und Drucker richtig eingestellt? 





Kommentare 


Bildschirm löschen und Programmnamen anzeigen 
Menü: Unterprogramme mit Soft-Keys 

IEC-Bus rücksetzen (Kanalnummer 7) 
Unterprogrammaufruf bei SRQ 

SRQ ermöglichen durch Setzen des Kontrollbits 
Nr. 3 (binär 8) 

Unterprogramm-Anwahl 

Bedeutung der Soft-Keys anzeigen 

Warten auf Interrupt ("End of Line"-Verzweigung) 





Bildschirm löschen 
Ein-/Ausgabepuffer dimensionieren 
vV.24-Schnittstelle rücksetzen (Kanalnummer 10) 
Ist MCA richtig eingestellt? 

Ist Magnetband positioniert? 

Überschrift für Meßdatenblock eingeben 

4800 Bd einstellen 

Stift 6 an V.24-Buchse positiv 

Durch Senden von "R" wird MCA auf Ausgabe 
geschaltet 

auf Antwort warten (10ms durch WAIT 10) 

Stift 6 an V.24-Buchse negativ 

auf Empfang schalten, Rubout ausblenden, 
Puffer zurücksetzen 
Rechner adressiert über IEC-Bus den Recorder 
(Listener-Adresse 6, Sekundäradresse 12) 
Datenkopf in Ausgabepuffer 

Daten zum Recorder ohne CR/LF 

Ende-Zeichen "<" am V.24-Eingang setzen 
verzweigen,: wenn Puffer voll 

sonst: mit Interrupt von V.24 in E/A-Puffer 
speichern 

Stift 6 positiv (vgl. auch 278) 

zählschleife für Interrupt 

Stift 6 negativ 

Daten aus E/A-Puffer zum Recorder übertragen 
(FHS: Fast Handshake) 
Abfrage auf Endezeichen 
An Recorder "End of File" 
An IEC-Bus CR/LF 

V.24 rücksetzen 

Mit Kontrollton (beep) 


senden 


zurück zum Menü 





Rechner sendet Talk-Adresse für Recorder und 
Listen-Adresse für Drucker 


Rechner schaltet sich passiv und "Return" 


Variable dimensionieren und SRQ sperren 
Recorder richtig eingestellt? 

IEC-Bus adressieren und Daten in Variable U$ 
lesen (mit EOI als Zeilenabschluß) 

Abfrage, ob EOI empfangen wurde 

U$ formatiert anzeigen 
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Zeilen- 
nummern Kommentare 


12560,1266 nach O,2s nächste Zeile 
1270 - 1286| Abschließen und Menü einschalten 
1285 Interrupt wieder ermöglichen 


13 - 136 Recorder richtig eingestellt? 

1370 - 143 Übertragungsrate wählen 

1446 - 1476| Steuerleitung (Stift 5) für Datenausgabe 
benutzen 

1480,1496 IEC-Bus adressieren und Daten in U1$ lesen 
(mit EOI als Zeilenabschluß) 

15 =..152 Daten über V.24 ausgeben, auf EOI abfragen 

ee = a Abschließen, Menü einschalten, Interrupt 
ermöglichen 


12% =; 1360 Dimensionieren, SRQ sperren, V.24 rücksetzen 
4 


> - 51 File-Nummer eingeben 
- 53 IEC-Bus adressieren und "Return" 


540 - 59 Band positionieren und File-Daten eingeben 
6 62 Recorder adressieren, Menü einschalten 


Welches File löschen? 
Recorder adressieren 


Band positionieren 
Recorder adressieren und Kopf in k$ 
Rücksetzen und Rückkehr 


Fehlermeldung 

Statusbyte lesen u. anzeigen, SRQ löschen, 
Fehler anzeigen 

Recorder als Sender u. Fehlerbyte in Var. E 
Rücksetzen und Fehler anzeigen 

Interrupt freigeben und Rückkehr 





3 BENUTZUNGSBEISPIEL 


Das Programmpaket ermöglicht die in Tabelle 1 aufge- 
listeten Funktionen. Besonders wichtig sind die Spektren- 
transfer-Moduln (Zeilen 21$ - 446 und 1366 - 1576). Dabei 
dient der Rechner als Controller und Pufferspeicher. Bild1l 
zeigt, daß der Rechner bei den Transfers zwischen der seriel- 


len Schnittstelle (V.24) und dem IEC-Bus umschalten muß. 


Mit der Programmtaste (Soft Key) 6 wird in die Routine ab 
Zeile 1366 verzweigt, die Übertragungen von Daten zwischen 
dem Kassettenrecorder und einem Empfänger an der V.24-Schnitt- 
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stelle des HP-83 (bzw. 85) ermöglicht. Als Empfänger kann der 
Vielkanalanalysator oder aber ein übergeordneter Prozeß- oder 
Großrechner für Auswertungen angeschlossen sein (vgl. 

Bild 1). 


Bi 1d 3 zeigt den gesamten Dialog für diese Betriebsart. 
Vor der eigentlichen Übertragung wird die Möglichkeit gegeben, 
die Datenkassette richtig zu positionieren. Danach muß die 
Übertragungsrate (in Bd) eingestellt werden. Abschließend 

wird noch gefragt, ob mit der an Stift 5 des 25poligen-V.24- 
Steckers angeschlossenen Steuerleitung (Sendebereitschaft) 

die Datenausgabe gesteuert werden soll. Die Transfersteuerung 
über diese Leitung kann manuell oder durch den angeschlossenen 
Empfänger erfolgen. Nach Beendigung der Übertragung kann durch 
Drücken der Taste CONT erneut das Menü auf den Bildschirm 


gerufen werden. 


richtigen Filean 
tioniert To Jen 


Zeilennummer— = 1340 


1370 i cher Esugrate soll 
3es „erden ? 


Baun 
Baud 
Baucd 
Baud 


1440 S "i SEE T5N die Datenausgabe 


1530 Ende der QDsatenusbertragung 


1542 Proaramm Jurch Adruecken var 
'zont' fortsetzen: 





Bild 3 Dialog auf dem Bildschirm zum Spektrentransfer 
zwischen Kassettenrecorder und Vielkanalanalysator 


bzw. Großrechner 
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Zahnprofilberechnung mit dem HP-85 


von Harald Schumny 


1 AUFGABENSTELLUNG 


während der VDI-Getriebetagung "Rechnergestützte Getriebe- 
Konstruktionen" wurde in einem Vortrag M dargelegt, daß bei 
Beachtung einiger Einschränkungen auch preiswerte Tischcom- 
puter oder kleine Prozeßrechner für den Konstrukteur eine 
sinnvolle Hilfe darstellen können. Ergänzend zu den in |] 
vorgestellten Programmen zur Gelenkviereck-Berechnung [2.45] 
wird hier ein weiteres Programm zur Zahnprofilberechnung be- 
schrieben. Benutzt werden Arbeiten von Dr. K. Hain [6] zur 
"Berechnung eines Gegen-Zahnprofils für gegebenes Erstprofil 
mit Einschluß der Krümmung beider Profile". Es handelt sich 
hierbei um eine Erweiterung des Verzahnungsgesetzes für kon- 
stantes Übersetzungsverhältnis. Details dazu sind in [7] 


beschrieben. 


Für die Berechnung sind einzugeben: 


- Achsabstand d 


- Übersetzungsverhältnis i = — 
z Up 


- Koordinaten des gegebenen Profilpunktes RN IE 


- Koordinaten des Krümmungsmittelpunktes dieses 


Profilpunktes x 


’ 


co Yco 


Bild 1 zeigt eine Skizze dieser Eingangs- und der End- 
Ergebniswerte. Ebenfalls angegeben ist das verwendete Koordi- 


natensystem: 
- Ursprung Ay: Drehpunkt eines Rades mit gegebenem Profil; 


= x-Achse: Gerade zwischen den Rad-Drehpunkten A, und Bo* 


Bi ld 2 zeigt die zugeordneten Punkte, wie sie vorgegeben 


(C, - C) bzw. als Ergebnisse ausgegeben (D, - D) werden. 
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Bild 1 Eingangs- und End-Ergebniswerte (übernommen von [el ) 


„Bo 





004 


Bild 2 Zugeordnete Punkte C, D, Co! D, des gegebenen Profils 


(Co, - C)und des berechneten Profils (D, - D) 


Im folgenden ist der Gleichungssatz angegeben. Die Bezeich- 


nungen zur Berechnung von Zwischenergebnissen können Bild 
3 entnommen werden. 
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Bild 3 Darstellung zur Berechnung der Zwischenwerte 


Yan: 
$ = arctan = 

c co (1) 

(y.- x, tand) - cos$d - (i, + 2 u 

= BES ne er re Te re nn a a rn 

9, = (aresin z f} (2) 
Too co " Yco (3) 
$__ = arctan “co + (4) 
02 x 1 

co 

=r . . = n 
%o2 co EOBP 2 ’ Yo2 Tco Band 5 (5) 
x. = = 
F ER: T) (tang, " tand.n + 1) (6) 
Yr ” tand (Xp - X 2) EN (7) 
YF 
ee (8) 
tand, 
a 
R z 

02” tandg, m, (9) 
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VD. re ee) 
2 2 
a 1 a, 2) 
x A (ee d,-9% 
by. = 180.= (arecos(- 282 __,,_De2_ + — (12) 
Do YDo2 y2 
TE <osy,, rg: + Yo Enge sinyyo | (13) 
R 2 2 
Ev x. + Ya (14) 
= Ye 
® = arctan — + %, - 6 (15) 
c 
U cos$, ae 2 FE sind, (16) 
BR BR 
Enz ” I Er m) 
ei Iy_,| 6, -6 
vn) = 180 - (arecos(- 2) . —e2 ; 1 (18) 
?n2 Yc2 12 
ee cosy, #d 5 Yp * Fpa siny, ri (19) 
R B 2 a 2 
P) * / x, Xno) + (Yp Yno) (20) 
x -x |y - y.| 
T = 180 - (arccos(- ba _D,;, : ee (21) 
Pp YDo Yp 








Als Hauptergebnisse gelten die Lösungen der Gleichungen (13), 
(19), (20) und (21). Sie werden vom Programm wahlweise nume- 
risch oder in graphischer Form ausgegeben. Zur Kontrolle be- 
steht zusätzlich die Möglichkeit, Zwischenergebnisse auszu- 


drucken. 
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2 PROGRAMMBESCHREIBUNG 


2.1 Struktur des Programms 


Bild 4 zeigt das Flußdiagramm. Es wird zunächst die 
Möglichkeit geboten, mit einem im Programm vorgegebenen Daten- 
satz eine Testberechnung auszuführen. Ist dies nicht nötig, 
wird die interaktive Paramentrierung gestartet. Im Block 
"Berechnungen" (ab Zeile 1000) wird der Gleichungssatz (1) 

bis (21) bearbeitet. Anschließend (ab Zeile 2000) können drei 
Ausgabefälle angewählt werden: 


(1) alle Zwischen- und Hauptergebnisse für einen Profilpunkt; 
(2) alle Hauptergebnisse für alle spezifizierten Profilpunkte; 
(3) graphische Ausgabe entsprechend Bild 2. 


Programmkopf 
ZAHNPROFTIL 


Ausgabefälle 


interaktive 

Parametrierung 
1000 

Berechnungen 





Bild 4 Flußdiagramm "Zahnprofil" 
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2.2 Anweisungsliste 


100.1. Jaalalaalalllalak 
110 1% ZAHNFRÜF ILE x 
120 1% PRÜGRAMM "ZAHN" x 
120 1% JANUAR 1982 x 
140.1. 3lakalaalaleakalkalealkalealealealeleakealealkalrakcalcale 
141 ! 


142 CLEAR 8 RESTORE 
143 DISF_ Waalaalalalalalalaalaalakalalallaolalolalkaialalalak" 


144 DISF "x x 
145 DISF '"% ZAHNFROF TIL x" 
146 DISF "% Lu 


147 DIESE Daanaannadaaaadaaaadidia 
148 DISP " " 





149 DISP " Berechnung mit vorpro-" 

150 DISF " grammiertem Farametersatz" 5 DISF “ " 
151 DISF " ; ALUFASELIDIESP 

152 DISP " Interaktive Farametereingabe" 8 DISF " " 
153 DISF " ===} AZU" 


154 BEEF 10,200 5 BEEP 20,200 

155 INFUT X$ 

156 IF X$="1" THEN 160 

157 IF X$="Z2" THEN 200 

158 GOTO 155 

160 

161 READ D,I1,X0,YO,XF LI, YFLLIKKTCH SV FADI LK FCH LV FACH LK FEAH) L Y YA) KT KH) NY FI 
162 DATA 120,.5,38.5,25,66,23.5,64.8,16.5,62.1,10.9,59,6.3,54.5,2.5 
163 G0TO 500 

170 

180 ! 

200 ' INTERAKTIVE 

201! FARAMETERE INGABE 


2er. 
" CLEAR 
DISF " BERECHNUNG EINES" 
DISP " GEGEN-ZAHNFRÜF ILS" 
DISF "44444444 "8 pISF " " 


DISF "Fuer dıe Farametereingabe" 8 DISF " " 
DISF "Taste AGü druecken" 8 DISF " " 

DISF "=s=e===eem: 
BEEF 10,200 5 BEEF 20, 
INFUT X$ 

IF X$="G" THEN 290 
GOTO 260 

290 CLEAR 

300 DISF "FARAMETEREINGABE :" 

SLO NDISP! MEFmressara ee Heneeen "“s.DISER "-" 
320 DISF "---- d ="; 

530 BEEP 

340 INFUT D 

350 DISF "---- iz ="; 

360 BEEF 

370 INFUT I 

380 DISF "—---- »co ="; 

390 BEEF 

400 INFUT X0 

410 DISF "---- yco ="; 

BEEP 

INFUT Yo 

425 FÜR EK=1 10 5 

+40 DISF "----  sct"sks") ="5 

450 KEEF 

4a0 INFUI XYiH> 

470 DISP "---- ycet"!zkK;") ="; 

480 BEEF 

450 INFUT YFiCH) 

475 NEXT HE 

495! 

500 BEEF 10,200 & BEEF ZU, 200 





’ 
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540 
S50 
560 
570 
580 
590 
san 
610 
H20 
H30 
640 
650 
[-Y-10} 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
BOoo 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
1000 
1010 
1012 
1015 
1020 
1022 
1025 
1030 
1033 
10536 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 





WAIT 2000 

\ 

' AUFRUF: BERECHNUNG 

' 

GUOSUR 1000 

\ 

AUFRUF = AUSGABEFAFLLE 
\ 


GOSUR 2000 


' NEUSTART 7? 

’ 

CLEAR 

DISP "WAHLMOEGLICHKEITEN 


DISP "s==auummmeeuuee 





y DISP “ * 
AaNu" 8 DIESE" " 





DISF " Neuanfang 





DISF " Beendigung =; AaEu" & DISF " " 
BEEF 10,200 $ BEEF 20, 200 
INFUT X$ 

IF X$="N" THEN 100 

IF X$="E" THEN 740 

GOTO 690 

\ 

! BEENDIGUNG DES FRÜOGRAMMS 

' 

CLEAR 

DISP" %/8 DISPF* "5 .DISP "" 
DISP_ "aaa" 
DISF "% x" 
DISPF "x ENDE x" 
DISF "%* des x 
DISF "% x 
DISF "% Frogramns x" 
DISF "%* x" 
DISF "% * ZAHNFROF IL.” x 
DISF  *" aalkalealalaalkkalealakealcalekakcalakcak"" 
BEEF 10,200 5 BEEF 20,200 8 BEEF 10,200 8 BEEF 20,200 


L 
WAIT 10000 
CHAIN "Autost" 

' 
END 

! BERECHNUNGSROUI INEN 

! ALS UNTERFRÜGRAMM 

! GESCHRIEBEN 

’ 

CLEAR 

FOR kK=1 TO 5 

RAD 

F(K)=ATN((YFCEI-YOIZ/CKIIEI-XO)) 

F(K)=F(K)A180/FI 

DEG 

FICK) =EASN((YICKI-XFKEIKTAN(F (EI IIKCOS(FCEIIKCI+LI /DI KARS (CF (EI I /F EI 
RO (K) =50R (XO"2+ YO") 

FZ(K) =ATN(YO/XO)+FLCE)-F(K) 

X2(K)=RO CK) COS (FZCK)) 

Y2(K)=RÖ(K)ASIN(FZ(E)) 

XSCE)=D/CCI+L) KATANCFLCEIIRTANCFZCKI DI +LD) 
Y3CK)=TAN(FZCKIIKOKZICKI-XZCEI I +YZ CE) 
M2(CEI=SYSCKIZ/CKS CE) Do) 
X4E)=DACTAN(FICK)II/ACIFLI -MECEI DI /CTANCFLCEIDI-MÜECE)D 
Y4(k)=MZCK)IKCXA CK) -D) 

R1(CEI=SUR (YACKI "Er X (EI DIE) 

FO(K) =1BO-ACS (-C(XKACKI -DI /RLCEI II KABS(YACEI I /YACEI + CFLCEI FED I /I 
X1(K)=Ri (EI ACOS (FÖOCE))+D 

Yi(kK)=RLI(K)IASIN(FO(E)) 

R3(K)=SOR (XI (KIT ZHYI CK) DD 

FSK) =ATN(Y9CKIZ/ÄICEII +FLCEI -F CE) 
XS(K)=RS(CK)ACOS (FICK) ) 

YS(K)I=RECKIASIN(FISCHK)) 

RS <(K) =SOR (YSCKE)ITZHOXSCK)-DI "ED 

PK) =180-ACS (-CCX5 CK) -DI /RS CHE) II MARS (YSCKIIZ/YSCKI+CFLCKEI FED I ZI 
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1240 X (E)=RSCHE)I ACOS (FE) I +D 

1250 Y(kKD=RS(CEIASIN(FCE)) 

1260 R(EI=SORCCKCHI-XLCKI I TEHÄV ED -YLCKEI I TE) 

270 TCEI=1BO-ACS (-CIXKLCEI-KCKEII/RCEI II KABS (YLCEI-YCKI I ZAYLCKDI-Y CHI) 
1275 NEXT K 

280 RETURN 








BERECHNUNGEN SIND 
AUSGEFUEHRT 


AUSWAHL DER VERSCHIEDENEN 
AUSGABEMOEGL ICHKEEITEN 





2020 ! 
2030! 

2040 CLEAR 

2650 DISF "AUSGABEMOEGLICHEEITEN =" 


Z060 DISF IE DTSRSN N 



















2070 DISF " Alle Kontrollwerte === Aku" 8 DISF " " 
2080 DISF " Hauptergebnisse - AHD" 5 DIsP " " 
2090 DISF " Graphische Ausgabe = AGu" 8 DISF " " 
2095 DISF " Beendigung ==; AEu" 8 DISF " " 
2100 BEEF 10,200 8 BEEF 30,200 
z110 INFUT X$ 
2120 IF X$="k" THEN 2200 

IF X$="H" THEN 2250 

IF X$="G6" THEN 22 

IF X$="E" THEN RETURN 

6010 z110 

' 

\ 

! UNTERFROGRAMM "EONTROLL *® 

GOSUR ale) 

GOTI0 ?000 

' 

L 

! UNTERFROGRAMM "HAUFTERG" 

GUOSUR 4000 

GOTO ROoOO 

' 

' 

! UNTERFROGRAMM "GRAFHLIL. 

GOSUR Su0o 

GUTO 2000 

\ 

' 

’ 

\ 

! UNTERFRÜGRAMM 

"= EKONTRÜLLWERTE " 

I 

ELEAR 

DISF "AUSGABE ALLER KÖNTROLLWERTE'" 

DIS VD mn min ar is aan an ums ver don m ein in Da an a va ei u ende db ana ar u PempesL |} E23 bLISrF ” “ 

DISP " auf Bildschirm ABU TE DIESE Te 

DISF " auf Drucker AaDu" 8: DIESE 

BEEF 10,200 8 BEEF 20,200 

INFUT %% 


IF X$="R" THEN 3 
IF Xb="D" THEN 
GUTN 3070 
ERTTLS.R 

a 

CLEAR 

DIE " ZAHNFRÜF IL." 

DISF "Ausgabe aller Zwischen-" 
DISF "und Hauptergebhnisse" 
DISF "fuer einen Farai ersat 
DISF 


















3.DESE r 
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DISF " iz el 
DISFÜ CO ıX0 
DISP " yco "Yo 
5 DISF " »c(1)="3X9i1) 
DISF " yelld="z3Y9(lD) 
DISF Un nr un mn ann am sn man mn mn a un nn mn man mn a nn a mn an nn DI 
DISF " 
DISF “ ==#+ Ergebnısse:" 
3. DIESEN 


WAIT 2000 

DISF " Fhi =";F(D 
DISF " Fhil ="3F1(1) 
DISF " rco ="; RO(1) 
DISF " Fhiö2 =";F2(D) 
DISF " 02 =",X2(d1 
DISF " yo =": Y2(DD 








DISP " xF zZ"; X201) 
DISF " yF z";y2(D 
3390 DISF " m2 ="; M2(1) 


2400 DISF " xDOE =";X4(1) 
3410 DISF " yDO2 =";Y4(1) 
3420 DISF " rDO =":R1(1) 
3430 DISF " FsiDO =";PO(1) 
440 DISF " rC =";RI(1) 
3450 DISF " FhiC =";F3(l) 
7460 DISF " xC2 =": X5(1) 
=470 DISF " yC2 =", YS(1) 
2480 DISF " rD2 =":R5(1) 
DISF " FsiD =";P(V) 


D I SF nn nn nn nn u m nn an un nn mn nn m Pen] | 
DISF " % Hauptergebnisse :" 
5 DISP " " 


DISF " »DO ="3X1(D) 
DISF " yDO =":Y1(1) 


pDIise " " 
DISF " xD z"3X(1) 
DISF " yD =";Y(l) 


DISF " RhoD =";R(1) 

DISF " Tau ="; T(1) 

DISF "-------------- 007 _ 
\ 5 WAIT 8 
B6o0 
2610 CRT IS 1 

3620 RETURN 

F6r0 ! 

2640 ! 

4000 ! UNTERFROGRAMM 
4010 ' "HAUFTERGEENISSE’ 








’ 

CLEAR 

DISF "AUSGABE DER HAUFTERGEBNISSE" 

DISF "----- - --- [en m 8 DISF " " 





4060 DISF " auf Bildschirm 
4070 DISF "“ auf Drucker 
O BEEF 10,200 8 BEEF 20,200 

INFUT X% 

IF X$="B" THEN 4140 

IF X$="D" THEN 4130 

GOTO 4090 

CKRT 18 2 


Abu" 8 DISF " " 
ADu" 8 DISF " " 





" ZAHNFRÖF IL." 
"Ausgabe der Hauptergebnısse 
FOR E=1 TO 5 
DISF " % Eingabeparameter:" 
DISP " d =";D 
DISP " iz =";l 
" xco =";%X0 
DISF " yco =";YÖ 
FOR K=1 TO 5 





5 DISE " " 
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4245 
4250 
4260 
4290 

285 
4290 
4295 
4200 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4375 
4:77 
42380 
4390 
4400 
4410 
4420 
5000 
5010 
5020 
SO3O 
5040 
SOS0 
S0O60 
5070 
SO80 
Sog9o 
S100 
5105 
5106 
5110 
5120 
5125 
5126 
5127 
5130 
5140 
5150 
5160 
5165 
5166 
5170 
5180 
5190 
S2OO 


5210 
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DISF " »c(";kK;3") ="3X9CK) 
DISF " yel"3K3") ="3Y9CK) 
DISP NeS2835 Sera ne Sense 
DISF " Hauptergebnisse fuer" 
DISF " Farametersatz 

DISP " ==========2==-=-=- == 

WAIT 2000 

DISF " „Do ="5X1(k) 

DISF " yDö =z";Y1(K) 

DISF " " 

DISP " »D ="3X(E) 

DISF " yD 'zY(k) 

DISF “ RhoD =";R(K) 

DISP " Tau ;T(k) 

DISF "--------- ERETTENSE EINE a SEN DEN Or 
WAIT 2000 

NEXT E 

’ 

CRT IS 1 

RETURN 

' 

!  UNTERFROGRAMM 

! ®GRAFHIEK” 

' 

CLEAR 

GCLEAR 

SCALE -20, 150, -40,60 


XAXIS 0,10 
YAXIS 0,10 
LDIR © 

MOVE -1.5,-2 
LABEL. 
MOVE -5,-6 
LABEL "A" 
MOVE 118.5,-2 
LABEL. "o" 
MOVE 118.5,-6 
LABEL "RB" 

FOR K=1 TO 5 
FENUF 

FLOT X0,YoO 












IMOVE -1.5,-1.5 
LABEL "o" 
IMOVE - ; 
L.AREI. "Co" 
FLOT X9CE),Y9FCE) 


IMOVE -1.5,-1.5 
LABEL "o" 

IMOVE -73,4 
LABEL ' 





PLOT X0,Yo 
PLOT XF KK) ,Y9CK) 
NEXT K 
DEG 
SCALE 
DEG 
WE(XPÄLI-KOI/COSCF(1)) 
MOVE O,W 

FÜR A=0 TO 180 SIEF 9 
DRAW WASIN (A) .WKCOS iA) 
NEXT A 


-(20+X0) , 150-X0,- (40 +,YO) „Bu-YV 





on 


5290 
SF00 
5310 


9320 





7=1010} 
5610 
5620 
S630 
5640 
650 
I660 
5670 
5680 
5670 
5700 
5710 
3720 


DRAW -X0,-YO 
MOVE O,W 
DRAW -X0,-YO 
’ 


MOVE -(X0-5) ,-(YO+40) 
LABEL "ZAHNPRÜF IL" 

[} 

SCALE -20, 150, -40,60 
FOR K=1 TO 5 

PENUP 

PLOT X(K),YCK) 

IMOVE -1.5,-1.5 
LABEL "o" 

IMOVE 5,0 

LABEL VAL$ (K) 

PLOT X1(K),YLCK) 
IMDVE -1.5,-1.5 
LABEL "o" 

IF K=2 THEN 5510 

IF K=4 THEN 5510 
IMOVE 0,5 

G0TO 5520 

IMDVE 0,-5 


» LABEL VAL$ (K) 


NEXT K 

' 

MOVE X(5),Y(5) 
DRAW X(4),Y(4) 
DRAW X (2), Y() 
DRAW X(2) ,Y(2 
DRAW X(1),Y(DD 
DRAW 120,0 

DRAW X(5),Y(5) 
MOVE 60,50 

LABEL "gegebenes Frofil" 
IMOVE 0,-5 

LABEL "Co-C" 

MOVE 100,25 

LABEL "ber.Frofil" 
IMOVE 0,-5 

LABEL "Do-D" 

ı 


WAIT 10000 
RETURN 


Zahnprofile 


3 BENUTZUNGSBEISPIEL 


Nach dem Programmstart 
beginnt folgender Dia- 
log, der hier als Bild- 
schirmkopie wiedergege- 
ben ist (Taste COPY): 


Nach der Antwort 


U] Em rme] 


die Ausgabemöglich- 


werden 
keiten zur Wahl 


gestellt: 


3.1 Alle Kontrollwerte 


K] Enıme] —— 


OD] En me] 











ZAHNPFROFIL 
Aussabe aller Zwischen- 
und Haurtersebnisse 

tuer einen Parametersatz 








* Eınyaberarameter: 
d = 12 


ız = .,5 
xco = 38.5 
yvco = 25 
xc(1)= 66 


ve(i)= 23.5 


Nach dieser Ergebnis- 


auslistung kehrt das 
Programm zu den AUSGABE- 


MOEGLICHKEITEN zurück. 











* 
ERHNFFOF TIL % 
+ 
+ 


er 72222222222 2222 222222222227 


Berechnuns mit vorero- 
arammierten Parametersatz 


ze=\ C[Cı] 
Interaktive Farametereinsabe 


sem, c2]3 


AUSGABENDEGLICHKEITEN 


Alle Kontrollwerte ==; 
Haurtersebnisze ==} 
Grarhısche Aussabe ==; 


Beendigure ==) 


auf Bildschirm 


auf Drucker 












==) Ersebnisse: 


Phı =-3.12213046212 
Phil =-19 7781197138 
rcö = 45.9047927781 
Phi@2 = 16.3497158495 
xda = 44 0484669816 
r82 = 12.9221730592 
xF = 89.4298648443 
YF = 26.2353781952 
n2 =-.858202885319 
xD62 = 148.825579329 
rD82 =-24.7381953511 
rD6ö = 37.9854226366 
PsiD8 = 286.967733163 
rc = 78.0589837882 
PhiC = 2.95982207292 
xC2 = 69.9660118279 
rc2 = 3.60654885929 
rD2 = 56.1638032979 
= 142.581159934 


%* Haurtersebnisse 


= 139.5133596583 
=-36 5015287495 


































xD6 
yb& 





89.15921628093 
vb = 38.4313843189 
RhoD = 83.7989013378 
396.933981783 










HP-85 


23 


HP-85 


Zahnprofile 





3.2 Hauptergebnisse 


® Bo] 


und 


6) Beim) 


ZAHNPROF IL 
Ausgabe Jer Haurtersebnisse 


* Einsaberarameter: 
[e] = 129 
> 
38.5 
25 
1. = 66 


==) Haurtersebnisse fuer 
Parametersatz 


»D& = 130.513359683 
»L8 =-36.5015287495 


89.1591620993 
39.4213843109 
= 33.79899123373 
306 .2339917873 


rt 2 2 = 16,3 


Hauptersebnisse fuer 
Farametersatz 2 


xD@ = 121.0583321 
‚D@8 =-25.5705261744 


70.85368920714 
22.10084465618 
693.221696666 

316.482363731 





3.3 Graphische Ausgabe 


E) Enıme] —— 
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= 62.1 
vyc( 3) = 10.9 
Haurtersebrisse fuer 


Farametersatz ? 
ZZZZZZZzZZZEZZZZzzCz = zum zemmmmzzm 






xCe = 117.047271694 


=-22.3177093775 


xD = 62.1%3884633 
»D = 11.0377315896 
Rhoü = 64.2073629312 
328.70157821 










Hauptersebnisse tuer 
Farametersatz 4 





xb@ = 117.32837248 
‚08 =-22.3642096034 


xD = 55.7767920862 
0 =-2.898326654949 
FhoD = 64.5688622996 
Tau = 342.437534958 


==) Haurtergebnisse tuer 
Parame‘ersatz 5 
ZZZZZEZSZZZZCEZZSECSEZET Zum smzee = 






xb® 
09 


= 122.194702173 
=-22.8323012088 









xD = 53.1010540871 
yD =-27.9355845767 
RhoD = 69.2818629662 
= 4.224217505 









































. 3esebenes Profil 
“Co-C 


Al 


ZAHNFROFIL 





| 






Zahnprofile HP-85 








Damit ist ein vollständiger Zyklus durchgelaufen, und es 
werden erneut die AUSGABEMOEGLICHKEITEN angeboten. Mit 


[E] END LINE| kann definiert abgeschlossen oder neu ge- 


startet werden. 
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BASIC Solaranlage 





Kollektorfläche einer Solaranlage 


von Werner Hürlimann 


Das Rechnen von Investitionsvarianten für den Wirtschaftlich- 
keitsvergleich von Solaranlagen kann sehr umständlich und 
zeitraubend werden - besonders wenn innerhalb dieser Varianten 
noch gewisse Eingabedaten variiert werden sollen. Hier kann 
nur noch der Computer weiterhelfen: Mit Hilfe eines BASIC- 
Programms ist es möglich, entsprechende Schätzmodelle (vgl. 
Tabe 1 1 e 1) aufzustellen und nötigenfalls zu erweitern 
(Tabelle 2). Wir zeigen als Beispiel ein einfaches 
Schätzprogramm, das einige besonders wichtige Variablen ent- 
hält und sich auf einen beschränkten Anwendungsbereich (Ein- 
familienhaus ohne Schwimmbad, Anwendung von Solarkollektoren) 
bezieht. Ein solches Programm dient der Vorabklärung, bevor 
man sich hinter die Detailprojektierung macht, oder aber für 
grobe Schätzungen über die grundsätzliche Eignung des Solar- 
projekts. Wenn nach dieser Vorabklärung ein detailliertes 
Pflichtenheft sowie entsprechende Offerten vorliegen, können 
diese mit Hilfe eines erweiterten Programs (Tabelle 2) 
durchgerechnet und variiert werden. Auf dieser Stufe sind 
natürlich Architekten und Heizungsfachleute als Berater beizu- 


ziehen, um ein realistisches Modell zu erhalten. 


Tabelle 1 Eingabedaten und Output eines einfachen Schätz- 
programms für die Kollektorfläche einer Solaranlage 





Art des Gebäudes 
Einfamilienhaus 

Schwimmbad 

Einfamilienhaus mit Schwimmbad 
Mehrfamilienhaus 


Standort 
9 schweizerische Standorte mit gegebenen mittleren Jahres- 
werten für Globaleinstrahlung in kwh/m2 
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Solaranlage BASIC 


Bauliche Gegebenheiten 
Flachdach 


Dachanbringung möglich 
Firstdach 

- Richtung 

- Neigungswinkel 


Schätzung Wärmebedarf 


Anzahl Personen mit Warmwasserbedarf 
Verfügbare Montagefläche für Kollektoren 


Output 
Benötigte Kollektorfläche 


Prozentuale Deckung des Wärmebedarfs durch Sonnenenergie 





Tabelle 2 Erweiterungsmöglichkeiten für das vereinfachte 
Schätzmodell gemäß Tabelle 1 


Art des Gebäudes 


Differenzierung nach Stockwerk- und Raumanzahl 





Standort 

Effektive mittlere Jahreswerte für Globaleinstrahlung am 
Standort 

Berücksichtigung von saisonalen Besonderheiten 


Schätzung Wärmebedarf 
Differenzierung des persönlichen Warmwasserbedarfs 


Besondere Schätzung für den Heizwärmebedarf aufgrund 
baulicher Faktoren. 

- Fläche bzw. Inhalt der Räumlichkeiten 

- Art und Stärke des Mauerwerks 

- Flächen und Verglasungsart der Fenster 

- Außentemperatur sowie Temperaturdifferenzen zu Nachbar- 


räumen 





Ergänzung durch herkömmliche Heizung bzw. im Energie- 





Verbundsystem (Absorber, Wärmepumpe, Solargeneratoren usw.) 
Art und Größe der verfügbaren Wärmespeicher 

Möglichkeiten der Zusatzversorgung 

Einfluß von zusätzlicher Isolation, sowie beim Schwimmbad 
Abdeckung und Windschutz 
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BASIC Solaranlage 


Art und Wirkungsgrad des Heizsystems 


Betriebsart 

Sonnenkollektor 

- als Hauptversorger 

- als Teil eines Gesamtenergiesystems 
Zusatzversorgung 

- Ölheizung 

- Sonnengeneratoren 


Andere Systeme 


Betriebswirtschaftliche Daten 

Investitionen 

Abschreibungssatz 

Zinssatz 

Jahreskosten insgesamt (ohne Abschreibungen und Zinsen) 
Einsparmöglichkeiten an konventioneller Energie pro Jahr 


Resultat (Output) 
Gesamte Jahreskosten 


Anzahl der zum Rückfluß der Investitionen (Payback) 

benötigten Jahre 

Benötigter Energiebedarf, notwendige Kollektorfläche 
Verteilung des Energiebedarfs auf Sonnenenergie und 


Deckung durch herkömmliche Energieformen 
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Solaranlage BASIC 


IST 
0010 REM SONNFNENERGIE 


0015 FRINT "17 
0920 FRINT » "EIV-SEMESTERARBEIT 1980 W.HUERLIMANN*® 

0030 FRTNT 

0040 PRINT 

0050 FRINT »»"20:>SONNENENERGIE{ 21" 

0060 FRINT 

0070 FRINT 

0080 PRINT *  FROGRAMM ZUR KOSTENBERECHNUNG UND FROJEKTIERUNG * 
0090 FRINT * EINER SONNENENERGTEANLAGE *® 

0100 PRINT 

0120 FRINT "WUENSCHEN STE INFORMATIONEN UERER*" 

0130 PRINT "As EINFAMILTENHAUS OHNE SCHWIMMRBAL?" 

0140 FRINT "Rt EINFAMILIENHAUS MIT 2 

0150 PRINT *"C} MEHRFAMILIENHAUS (1-2-STOCKIG »1-4 WOHNUNGEN» 16-20PERS.)" 
0160 INFUT "ArRsNDLER C?*'sA$ 

0170 IF A$="A" THEN GOTO 0250 

0180 IF A$="RB" THEN GOTO 0240 

0190 TF A$="C" THEN G0TO 0270 

0250 FRINT "12" 

0260 FRINT "RERECHNUNG FUER EIN {20>EINFAMILTIENHAUS:«21>* 
0270 FRINT 

0280 G60SUB 0520 

0290 GOSUR 0840 

0300 GOSUR 1140 

0510 STOF 

0520 REMSOURROUTINE STANDORT 

0530 PRINT "IN WELCHER GEGENN LIEGT DAS FROJEKTE*® 

0540 FRINT "BASEL (1)" 

0550 PRINT "BERN (2)* 

0560 FRINT "GENF (3)* 

0570 FRINT "LOCARNO(A)" 

0580 FRINT "MONTANA S. SIERRE(5)* 

0590 FRINT "ST,GALIEN(A)" 

0600 FRINT "ST.MNARITZ(7)* 

0610 FRINT "ZUERICH-KLOTEN(8)" 

0620 FRINT "NAVOS(9)* 

0625 FRINT 

0630 INFUT "TIPPEN SIE DIE IN KLAMMERN STEHENNE ZAHL EIN"»D 
0640 IF D=1 THEN LET T=108 

04509 IF N=1 THEN LET H=85,5 

0460 IF Tı=? THEN LET T=111 

0670 IF TI=2 THEN I1.ET H=88,8 

0480 IF T=3 THEN LET T=126 

0690 IF N1=3 THEN LET H=100 

0700 IF II=4 THEN LET T=135 

0710 IF N=4 THEN LET H=107,5 

0720 IF N=5 THEN 1.ET T=135 

0739 TF D=5 THEN LET H=107.5 





0740 IF N=4 THEN LET T=96.3 
0750 IF D=4 THEN LET H=76.6 
0760 IF (1=7 THEN LET T=134 
0780 IF N=7 THFN LET H=98.8 
07909 IF N1=8 THEN LET T=100 
OROO IF D=& THEN LET H=78,.R 
0810 IF TIı=9 THEN LET T=140 


OR2O IF TI=9 THEN LET H=97,4 

ORRO FFETURN 

0840 REM TIACH 

850 FRTNT "LP" 

OB40) FRTNT "ZUR BERECHNUNG DER EINSTRAHLUNG MUSS DER DACHNEIGUNGSWINKEIL.” 
0870 FRINT *"TITF FORM UNN HIMMEI.SRICHTUNG BFERUECKSICHTIGT WERTIEN. * 
0880 FRINT 

0890 FRTNT "CI)GEGEN SUEDEN GERICHTET MIT VERAENÜFRLTCHEM WINKEL" 
9900 FRINT *"CP) TI II II MIT 45 GRAN" 

0710 FFRINT "O3 TE IT It MIT ANTIEREM WINKEL" 

9929 FRINT "(4) GEGFN SUEDFEN GERTCHTETE WANN" 

0930 FRINT "CH) FLACHDACH" 

9940 FRINT 

APEN TNEUT "ZAHL GC I-SYTMMTOKFTNE CA) MEHRFRF(7Y"sE 
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0951 
0952 
0953 
0960 
9970 
0980 
0985 
0990 
1000 
1010 
1015 
1018 
1060 
1070 
1080 
1090 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1305 
1310 
1320 
1330 
1340 
1345 
1350 
1355 
1360 
1370 
1380 
1384 
1385 
1390 
1.400 
1410 
1420 
1430 
1440 


IF Ex>7 THEN GOTO 0940 

INFUT " WELCHEC VON 1 BIS 5 )?"sE 
GOTO 0960 

READ FOL) »FC2I»FC3)»FCA)»F(S5) 

DATA 100,85»3r62»5 

LET N=F(E) 

IF E=4 THEN GOTO 1400 

IF N<>3 THEN GOTO 1080 

PRINT 

INPUT "WIE GROSS IST DER WINKEL?*»+G 
IF 6<45 THEN LET N=(85-((45-6G)%.51)) 
IF 6>45 THEN LET N=(85-((6-45)%.51)) 
IF N=5 THEN LET H=((H%38)/100) 

IF N=5 THEN GOTO 1130 

LET H=(T%kN)/100 

IF E=64 THEN GOTO 1130 


INPUT *" WINKEL. ZWISCHEN DACHGIEBEL UND OST-WEST-ACHSE?T"»+I 


LET H=(CH%(100-(1%,584))/100) 

RETURN 

REM SOURROUTINE $WAERMEBEDARF 

PRINT "<12>* 

PRINT » "BERECHNUNG DES WAERMEBEDARFS" 

PRINT 

PRINT "WIEVIELE PERSONEN BRAUCHEN IN DIESEM HAUS "* 
PRINT *WARMES WASSER 7?" 

INPUT "TIPFEN SIE EINE ZAHL ZWISCHEN 1 UND 8:"+W 
LET W=Wx124 

LET K=W/(HX.3) 

IF A$="B" THEN GOTO 0260 

FRINT 

PRINT "STEHEN IHNEN *"s5K# "QUADRATMETER UNTER DEN * 
PRINT "EINGETIPPTEN BEDINGUNGEN ZUR MONTAGE" 
FRINT "VON SONNENKOLLEKTOREN ZUR VERFUEGUNG ?* 
INPUT "TIPPEN SIE J FUER JA ODER N} "»RB$ 

IF RB$=")* THEN GOTO 1390 

FRINT 

LET W3=1 

PRINT "WIEVIELE QUADRATMETER KOENNEN SIE MIT * 
FRINT "SONNENKNLLEKTOREN BEDFCKEN?* 

INFUT "QUADRATMETER!" »Ki 

LET Wi=(100XK1KHK.3)/W 

FRINT 

IF W1>40 THEN GOTO 1385 

LET W2=1 

PRINT "SIE KOENNEN NUR *"#W15"% DES WARMWASSER*® 
FRINT "BEDARFES MIT SONNENENERGTE AUFWAERMEN" 
INFUT "WUNSCHEN SIE WEITERE INFOMATIONER J/N ?7*+B$ 
GOTO 1390 

LET R$="J* 

TF B$="4" THEN GOTO 1440 

FRINT "'«12>* 

FRINT »» "ENDE DES FROGRAMMES*® 

STOr 

ENT 

RETURN 


Solaranlage 


* RUN 


EDV-SEMESTERARBEIT 1980 W.HUERL IMANN 
SONNENENERGIE 


PROGRA 4 ZUR KOSTENBERECHNUNG UND PROJEKTIERUNG 
EINER SONNENENERGIEANL.AGE 


WUENSCHEN SIE INFORMATIONEN UEBER 

At EINFAMILIENHAUS OHNE SCHWIMMBAD? 

Bit EINFAMILIENHAUS MIT 

C} MEHRFAMIL.IENHAUS (1-2-STOCKIG »1-4 WOHNUNGEN» 16-20PERS.) 
ArBrODER CrA 


BERECHNUNG FUER EIN EINFAMILTENHAUS 


IN WELCHER GEGEND LIEGT DAS PROJEKT! 
BASEL (1) 

BERN (2) 

GENF (3) 

LOCARNO (4) 

MONTANA 5. SIERRE(S5) 

ST.GALLEN(6) 

ST.MORITZ(7) 

ZUERICH-KL.OTEN(8) 

DAVOS (9) 


TIPPEN SIE DIE IN KLAMMERN STEHENDE ZAHL EINB 


ZUR BERECHNUNG DER EINSTRAHLUNG MUSS DER DACHNEIGUNGSWINKEL 
DIE FORM UND HIMMELSRICHTUNG BERUECKSICHTIGT WERDEN. 


(1)GEGEN SUEDEN GERICHTET MIT VERAENDERLICHEM WINKEL 
(2) II 11 11 MIT 45 GRAD 

(3) II II II MIT ANDEREM WINKEL 

(4) GEGEN SUEDEN GERICHTETE WAND 

(5) FLACHDACH 


ZAHL.C )»STIMMT KEINE (6) »MEHRERE (75 
BERECHNUNG DES WAERMEBEDARFS 

WIEVIELE PERSONEN BRAUCHEN IN DIESEM HAUS 

WARMES WASSER ? 

TIPPEN SIE EINE ZAHL ZWISCHEN 1 UND 8:8 

STEHEN IHNEN 110.428 QUADRATMETER UNTER DEN 

EINGETIPPTEN BEDINGUNGEN ZUR MONTAGE 

VON SONNENKOLLEKTOREN ZUR VERFUEGUNG ? 

TIPPEN SIE J FUER JA ODER N!N 

WIEVIELE QUADRATMETER KOENNEN SIE MIT 

SONNENKOLLEKTOREN BEDECKEN? 

QUADRATMETER 20 

SIE KOENNEN NUR 18.1113 % DES WARMWASSER 

BEDARFES MIT SONNENENERGIE AUFWAERMEN 

WUNSCHEN SIE WEITERE INFOMATIONER J/N ?N 

ENDE DES PROGRAMMES 


STOP AT 1420 
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ABC-80/BASF 7100 Beleuchtungskörper 





Vier technische Programme für Luxor ABC-80 
und BASF 7100 


von Helmut Richter 


1 PROJEKTIERUNG DER ANORDNUNG VON BELEUCHTUNGSKÖRPERN 


Allgemeines 
Das Programm LICHT berechnet die Beleuchtungsstärke auf ausge- 
wählten Stellen des Fußbodens eines Raumes aufgrund der Licht- 


stärke und der Position von einer veränderlichen Anzahl von 
Beleuchtungskörpern. 


Berechnungsverfahren 


Im Programm ist eine Standard-Lichtstärkeverteilung für einen 


Beleuchtungskörper in einer Tabelle mit der Lichtstärke für die 


verschiedenen Winkel vorgegeben: 









10000 15000 





5000 


Diese Verteilung kann vom Benutzer geändert werden. 


Das Programm berechnet für eine vom Benutzer eingegebene An- 
ordnung von Beleuchtungskörpern die Beleuchtungsstärke auf die 
vom Benutzer ausgewählten Stellen des Fußbodens eines Raumes. 
Der Benutzer muß dabei die maximale Entfernung angeben, bis zu 
welcher der Einfluß eines Beleuchtungskörpers noch berück- 
sichtigt werden soll. 
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Beleuchtungskörper ABC-80/BASF 7100 








Hinweis für den Benutzer 


Nach dem Laden des Programms muß der RUN-Befehl eingegeben 
werden. Das Programm besteht aus einer Anleitung und dem 
Rechenprogramm. Wird die Anleitung nicht gewünscht, muß "N" 
eingetippt werden nach der Meldung: 


BRAUCHEN SIE INFORMATIONEN (J/N)? 


wünscht der Benutzer nicht die Lichtstärkeverteilung des Be- 
leuchtungskörpers zu ändern, muß "N" eingetippt werden nach 
der Meldung: 


WÜNSCHEN SIE DIE STANDARDLICHTWERTE ZU ÄNDERN? 


Wird eine neue Lichtstärkeverteilung gewünscht, muß "J" einge- 
tippt werden. Nach einer Anleitung müssen dann die Daten als 
DATA-Anweisungen von Zeile 1 bis Zeile 9 eingegeben werden 
nach dem Format: 


1 DATA N, A, Cr A, C ..er An’ En 


I +... 


2 DATA A ‚,c 
n+ n 


1 +1 


. DATA Ay en 


Bedeutung der Parameter 








Anzahl der Punkte, die für die Lichtstärkeverteilung 


eingegeben werden 
winkel im Bogenmaß 
Lichtstärke in Candela (cd) bei dem Winkel An 


Nach einer Eingabe von einer neuen Lichtstärkeverteilung muß 


das Programm mit einem RUN-Befehl neu gestartet werden. 


Wurde keine neue Verteilung gewünscht, fordert das Programm 


die Anordnung der Beleuchtungskörper an. 
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Meldung: 


SIND DIE BELEUCHTUNGSKÖRPER IN EINER 
LÜCKENLOSEN REIHEN-/SPALTENVERTEILUNG ANGEORDNET? 


(1) Sind die Beleuchtungskörper in einer lückenlosen Längs- 
und Querverteilung angeordnet, kann "J" eingetippt werden. 
Danach folgt die Meldung: 


WIEVIELE BELEUCHTUNGSKÖRPER GIBT ES? 


Hier muß die Anzahl der Reihen (Zeilen) der Beleuchtungskörper 
angegeben werden. 


GEBEN SIE DIE X-KOORDINATE DES LEUCHTKÖRPERS 


Hier muß eine X-Koordinate für jede Zeile eingegeben werden. 
Nach jedem ? darf nur eine Koordinate eingetippt werden. 


GEBEN SIE DIE Y-KOORDINATE DES LEUCHTKÖRPERS 


Hier muß eine Y-Koordinate für jede Spalte eingegeben werden. 


Nach jedem ? darf nur eine Koordinate eingetippt werden. 


(2) Sind die Beleuchtungskörper nicht in einer lückenlosen 
Längs- oder Querverteilung angeordnet, muß "N" bei der 
oben angegebenen Meldung eingetippt werden. 

In diesem Fall folgt die Meldung: 


WIEVIELE REIHEN SIND ES? 


Hier muß die Anzahl aller Beleuchtungskörperreihen angegeben 
werden. 


GEBEN SIE DIE X-KOORDINATE JEDER REIHE 


Hier muß für die ersten 5 Beleuchtungskörper die X-Koordinate 
angegeben werden. Nach dem nächsten ? für die nächsten 5, usw. 


Sind bei der letzten Eingabe weniger als 5 Eingabedaten, muß 
statt Eingabedaten ® eingegeben werden. 


Danach folgt die Meldung: 


WIEVIELE BELEUCHTUNGSKÖRPER SIND IN JEDER REIHE? 


Hier muß die Anzahl der Beleuchtungskörper in jeder Reihe 
(Anzahl der Spalten) eingegeben werden. 
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GEBEN SIE DIE Y-KOORDINATE JEDER SPALTE 

Hier muß die Y-Koordinate entsprechend der X-Koordinatenein- 
gabe eingegeben werden. 

Nach der Koordinateneingabe kommt die Meldung: 

SIND ALLE LEUCHTKÖRPER IN GLEICHER HÖHE? 


Haben alle Beleuchtungskörper gleichen Abstand zum Boden, wird 
"J" eingetippt, und der Abstand soll angegeben werden bei der 
Meldung: 


GEBEN SIE BITTE DIE HÖHE AN 


Haben die Beleuchtungskörper nicht gleichen Abstand zum Boden, 
wird "N" eingetippt, und die Abstände sollen den Reihen (Zeilen) 
nach angegeben werden bei der Meldung: 


GEBEN SIE DIE HÖHEN AN 


Hier dürfen auch nur 5 Daten nach jedem ? eingegeben werden. 
Sind weniger als 5 Daten einzugeben, müssen statt Daten ® 
eingetippt werden. 

Danach folgt die Meldung: 

WÜNSCHEN SIE EINE GEORDNETE LISTE ALLER LEUCHTKÖRPER? 


Hier wird beim Eintippen von "J" die Beleuchtungskörper- 
anordnung aufgelistet. 


Meldung: 
WÜNSCHEN SIE EINE ZEICHNUNG? 


Beim Eintippen von "J" wird die Anordnung in einem Koordinaten- 


system dargestellt. 


Für die Berechnung der Beleuchtungsstärke muß der Benutzer 
ein Netz definieren, in welchem Knoten die Berechnung durch- 
geführt wird. 
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GEBEN SIE DIE KOORDINATEN DES ECKPUNKTES 


Hier muß die Ecke des Netzes gegenüber dem Koordinatensystem 
der Beleuchtungskörperanordnung angegeben werden. Danach ist 
die Knotenzahl in X- und Y-Richtung anzugeben. Es folgt die 


Eingabe der Knotenabstände in X- und Y-Richtung. 
GEBEN SIE DIE MAXIMAL ZU BERÜCKSICHTIGENDE ENTFERNUNG 


Hier muß die maximale Entfernung, bis wo der Einfluß eines 
Beleuchtungskörpers noch berücksichtigt werden soll, 
angegeben werden. 


Danach folgt die Ausgabe des Ergebnisses: 


Mit den Beleuchtungsstärken LUX (Lx). 


Nach der Ausgabe kommt die Meldung: 





WEITER (J/N)? 


Wird "N" eingetippt, endet das Programm. Mit "J" kommt die 
Meldung: 


MÖCHTEN SIE LEUCHTKÖRPER ÄNDERN ODER HINZUFÜGEN? 


Beim Eintippen von "N" wird Berechnung und Ausgabe erneut 
durchgeführt. Mit "J" können neue Daten eingegeben werden 
nach der Meldung 


GEBEN SIE DIE NUMMER DES LEUCHTKÖRPERS AN 


Eingabeformat: N, X, Y, H 


Bedeutung der Parameter 


Nummer der Beleuchtungskörper, die zu ändern oder 










neu hinzuzufügen sind 





X-Koordinate der Körper 








Y-Koordinate der Körper 





Abstand der Körper über dem Boden 





Soll die Eingabe beendet werden, muß ®,9,9,® eingegeben 


werden. 


36 


uNaALTVdS „ INIMd : „ANN NAHIAU YId FLIIMLLIUHIS "€ 
uNaLIvVaS ANN NAHIFU UIA THVZNV 2 

uLlNNNdLUVIS *ı INIUd 06€ 

INIUd : „:19704 FIM NAA08 WaAd NV FLANNd NAANISSAW NZ AIA "Du LINIUd : LNIUd O8£ 
u"NELVNIAHOON IA YOANZ IIM OSNYNAD ‘NAEA9S9NV ASIFSMNIHIFU NIHOHu INIUd SLE 

„Ald NIAAHIM NASVONVISZNIF NOA TIVd WI u INIUd OLE 

„"HOITLIIHNIE UIAO NIFZNII YWIQIMINT u INIYd 09€ 

„“UAAUONLHINIT YATIY IHOH AIA "Au INIUd 0SE 

o9r2 ansoa Orc 

u" NASSYVT NAEHD DNNNAUONV u ININd : „-UAdUONLHONTT YUEIa NIHAYUD INIYFu INIUd SCE 

„aANN FLSIT ANIZ NNVA HOIS NANNOX AIS u INIUd O£E 

INIUd : „'NIGF9GONIA ISIIMNAHIAY NAAYAM NALYNIAHOOY AId u INIU4 02€ 

„HAIUONIHONIT YITTV NALYNIAUOOXN FAId 2 u INIUd OIE 

„HIdUONLHINTT YAd THYZNY IIQ 'b u ININd 00€ 

u:aNIS LINAUO -I9WV SYAIANV NIAUONLHONFT AIA STIVd --u INIUd 062 

„NALTVdS ANN NAHIEY UAQ NALVNIAUOOX *2 u INIUd 082 

uNaLIVdS ANN NAHIEN UIA THYZNV I u INIUd 042 

w:ANIS LANAUOFOINY NALTVAS ann NAHIAU NI MA4dNONLHONFT IA STITVd "Vu INIUd : INIUd 092 

„:NZLVA AANAIDIOA LIILONIE WWYYDOYd SYA u INIUd 082 

09+2 anson orz 

„"NYAANY HOOAIL FLYIM ISIIA NANNOX YISu LNIUd ® INIUd OE2 

„"ITSNNIM NANAAAIHISYAA AIA UNd IMUYLSu ININd 022 

u-LHOIT YIA LIW FITITASVL YANIE NI YIAUON -IHONFTT NINIF UNd INNTIILYNIADIUYLSIHIITu INIUd Olz 
„-ANVANVLS INIE LIVHINI WWVUDONd SYdu INIYd ® LNINd 002 

w"NYAAUONSOINNLHINITIE NOAu INIUd 061 

„IHVZNY NAHIGAITAI MANIT ONNNAUONY ANN VAILSIUILNVUVHI NAATIE NZUIIH AIOVTANNYD« INIUd O8L 
u"SWNYU SANII NAAOE WV NALMNNd NALWWILSFUu ININd ® „NY IVLISNALNILHIIT UIA ONNNHIFIYWA“ INIUd OLL 
„AlId LSI SWWYU9DOHd SASAIA AAV9aNnY IIAu(Z1)$UH9 INIUd 091 

orL NAHL uLu<>$V dI ISTI 09% NAHL uNu=$V dI 051 

((SY)VNA)SUHI=SSV : $V 199 Ort 

!(S)SUHI*uslN/P) NANOILYWYOINI AIS NEHONYYE« INIUd O£t 

ININd : INIUd : INIYd : INIUd : INIUd O2l 

ISSINAV-WVH-WUIHISAIIT-HOSUND FITTININV = ANd (O)AUd = ONI + STIHVA/NILHIIN IDIVd-AN » WAU Ol 
O=ILIVYdS UNI ASSIHAV-WYU-WUIHISATIE LUAJEIT (ITIIZ)EINdG x» SAIUVA/UILHIIU LINVd-AN xx WU 001 
WN SSO4WD NI “ISI NIATN SI STIVvd “NAHIIAIZ NIIT LIIANYM (($V)VNA)SHHO x*** SILHVY/YILHIIU IDIVd-AN »x» WEIU 06 
(Z10OSI)ATIA+L(LIOSI)NIIL)INI=TANIIIA 08 
(IGOGI)AIAL-IG2x(LSOSI)AITLA-(EIOSIJAATL+ISZ#(VIOSI)AIIL=INTIIA OL 

ee 09 
(EV)ISYHCVIICSV)OSV)-CI+l VII (SV)ISV))(ZE-(ZE UO ($V)OSV))=($V)VNddga 0% 

I IXdN : or2*I IX0d : LOO2ZE OL 1002£E=I YHOd : I IXAN : Or2‘I DNOd : 8EOZE OL 2202E=I UOd Ob 

I IXaNn : 821 80 (I)AFaa'I NO : 6LBIE OL ELSIE=I YWOd ® I IXAN : 821 NO (I)AIIA°I IN04 : Ol6IE OL FO6IE=I YOd O£ 
I LXAN : E9L “I INOd : ISLIE OL SPLIE=I YOA : I IXAN : E9LII DIOA ® Z8LIE OL YLLIE=I YOd 02 

INIUd : (ISL)$UHO INIUd : u6L 4H 2.H5 17 SO I u aNINad : (ISLZı)$UH9 INIUd Ol 


INI4d Ol 
INIUd 007 


.z22r 


ABC-80/BASF 7100 





Beleuchtungskörper 


LHOIT umeı1Fold 


37 


Beleuchtungskörper 





ABC-80/BASF 7100 


EN Ol I=I YOd 

I LXAN 

O OLODUOUHFNO ® (I)A INdNI : *"IudLIVdSu LNIUd : 068 OLODUOUHINO 
eN OL 1=I YOI 


„"ILIVdS UIAIP ILVNIAUOOY-A AIA AIS NAEFDu INIUA ® (IN)HICHN)NCHA)ACHN)X WIA ® Ol+IP=IN : EN"EN=IL 


O OLOHYHOUUEINO : ZN INdNI : 018 OLOHYUOUHINO 


*„NALITVAS YIA IHVZNY YAd LHOIIUASINF SIIAu INIUd : „sAHIIU YIAAL NI QNIS HAdUOXSONNLHONATIE FTIIAIIMu INIUd 


I ıxan 

O OLODUOUWANO : (I)d INAdNI : "IuAHIAUu INIUd : 064 OLODUONUINO 
EN OL I=I YOod : (EN)dD WIA 

“„"IHISU UIAIL ILVNIAUOOY-X AId IS NadA9u ININA 

O OLODYOUUANO : EN INAdNI : OGL OLODNONHINO 

‘„SZ ANIS NAHIAU FTAIAAIMu ININd 

INIUd ® uVL du INIUd 

076 0109 

I IXan 

O OLODUOYYAINO : (I)A INdNI : 00L OLODUONHANO 

!IuSYI4UON -LIHINIT SIA ILVNIAUOOY-A AId IIS NAda9u LNIUd 

O OLODUOUYUANO : (I)X LINdNI : 089 OLODHONNANO 

!IunSYIAUON -LIHINIT SIA ILVNIAHOOX-X AIA IS NAIA9u INIUd 

IP OL 4=I YOd : (IN)HICHM)NCHN)ACHN)X WIA 
: 0 OLODYUOUUANO : IP LINdNI : 059 OLODHOUUANO 
*„SI LAI9 YAIUONSONNLHINTTIET ITAIAFIMu ININd 
INIUd : uNIEN &u INIUd 

029 NAHL uNu<>$a dI ISTI OPL NAHL ufu=$d dI 
(($SA)YNA)SUHI=KE : HA 179 

:(B)SUHIY!uS(N/P) LINAUOIONY DNNTITIUIANILTVIS/-NAHIEU NASOTNANINTu INING 
"„HANIZ NI UFAUONSONALHINFTIE AIA ANISu INIMd : LNIUd 

I IXaN 

(I)I*(I)v avay 

IN OL I=I YOd : uNIEN &u INIUd 

(IN)O'CHN)V WIQ : IN Avau 

019 OLOD : I LXAN ® ININd 


Ol+ıf=ıN 


O OLODUONUENO : (I) INdNI : *uNV AO NI IVLISNALNI AId AIS NAdFdu INIUd : 06S OLO9NOHYANO 


O0 OLOYUOUUANO 


„ald "V°I LSI 


® (I)V INdNI ® !uNV SSYWNIIOE WI TINNIM Naad FIS NAEAdu INIUd : 096 OLOHNOHNENO 
IuIANNd-AILSIUILYYUVHO Undu INIUd : IN OL I=I YOd 

(IN)O°CıN)V WI 

O0 OLODUOUUENO : IN INdNI : 005 OLODYOUHENO 

*„SI LEI9 ILANNA-NILSIUALNYUYVHO FTAIAAIMu ININd ® INIUd 

VL &u INIH4d 

OL NAHL uLu<>$V AI STE OLS NAHL uNu=$V dI 

(($Y)VNA)SUHI=SV : $V 109 

*(8)SUHI!us(N/L) NUEANYV NZ ILUIMLHOITAUVANYVIS AIA FIS NEIHOSNNMu (ZI)$UHO LNIUA 


09r2 &ENS09 
„AUHIM NAWWONFOUHYM SUIIUONLHINAT SANIF "u INIUd 
„LHOIIT SYa uaa n2 SIa “ONNNYAILNT u LNIUd 


Sva “ONNNYFdLNI « LNIUd ® „IJANIOILHIISAINUIE NZ TVWIXVW AIA "Au INIYd : LNIUd 


0L8 
098 
058 
or8 
0£8 
028 
0,8 
008 
061 
08L 
OLL 
09L 
0SL 
ol 
OEL 
o2L 
ObLl 
00L 
069 
089 
0L9 
099 
059 
0%9 
0£9 
029 
g19 
019 
009 
065 
085 
OLS 
095 
089 
0) 29 
085 
025 
O1$ 
005 
06r 
08r 
oLr 
09% 
0sr 
ort 
37 
or 


an 
uk X "un X "UN „(Zl)$UHD INIYA 

OLE} NAHL uLu<>$V AI ASTA OCPI OLOD : INIUA : tan &u INIUd NAHL uNu=$V dI 
(($V)VNA)SUHOI=$V : $V 199 

*(S)SUHI! uElN/P) BIALOXLHONFT UITIV IISIT FIINAUOAD ANIA AIS NAHOSNNAu INIYd 
I ıxan 

P IXAN 

an 

(P)H=(I)H 

I)H=6X 

Sr 


ABC-80/BASF 7100 


(£)X=(I)X 
I)X=6X 
0821 NAHL Be I)A dI 
O9, NAHL (LP)XS>(I)X dI 
0821 NAHL (P)X>(I)X AI 
IP OL 1+I=f uod 
I-If OL I=I UOd 
I IXaN 
O OLODUOUUANO ® (I)H INANI : !(I)Au= A u(I)Xu= Xu ININd : 0601 OLODHOUYENO 
IP OL I=I UOd 
"NV NSHOH IIQ IS NFg4du INIUd ® INIUd : uNIEN &u INIY4 
Ollt 0109 
I IXaNn 
IH=(I)H 
IP OL I=I uOd 
O OLODYOUUANO : IH INdNI : OLOL OLODHOUNANO 
“NV 3HQH Al1d ALLIA FIS NAAIDu INIUd 
INIUd : uVP du INIYd 
086 NAHL uLu<>$V AI ISTI OLOl NAHL uNu=$V dI 
((SY)VNA)SUHI=$V ® $V 199 
*(8)$UHD!us(N/P) IHOH UaHOIFTO NI UIAUOYLHONIT ITIV ANIS“ INIUd : INIU4 
I IXan 
I=(I)N 
IP OL I=I YOd 
I IX3N 
£ ıXaN 
Sale 
I)d=(ır)x 
(1-I)»ZN+L=1\r 
N Ol I=P YOd 


Beleuchtungskörper 


or£t 
431 
02E1 
ol£gl 
00€ 1 
0621 
0821 
oLzı 
0921 
0521 
oret 
ogzı 
0221 
Orc 
0021 
0611 
08h 
oLlt 
o9L 
oStt 
ort 
47 
oz 
Oltl 
o0oLl 
0601 
0801 
oLOl 
0901 
0501 
orol 
0£01 
0201 
oL0L 
0001 
066 


0L6 
096 
056 
06 
0£6 
026 
016 


068 


39 





& EONN 
S O OLODYOUUANO : Id INdNI : 
FA 0 OLODUOUNANO : 20 LNdNI 

[= 

2 0 OLODUOUYANO : €9 

© 

3 0 OLODYOUNANO 
© 0 OLODUONNINO 
a 

= 

WwL 

177} 

< 

a 

ne 

© 

[) 

(8) 

a 

< 





O OLODUOUUINO : Zd INdNI : *„uNALIVdS UIA THYZNY ala NIS NAdA9u ININA 


0=(z)d : O=(I)d 

O OLODUOUUANO : W INdNI : 00814 OLODUHOHUINO 

NYSALNG SANIHILHIISAINUFE« INIUd : uNZ TYWIXVW FIA 3IS NAAI9u LNIU4 
"„NALIVdS UNd ILIIMLLIUHIS FIA IIS NAAADu ININd : O06L1 OLODHOHHANO 
® S„NSHISH Und ALIIMLLIUHIS IIA AIS NAATDu LNIYA 08L1} OLODHUOHHAINO 
OLL! OLODUOUHINO 


00. 


INdNI : *uNAHIIU UIA IHVZNV FI FIS NAgIDu INIU4 09Ll er 
d=£d 

® d INANI : !uSLYVNIAUOOY-A FIA FIS NAEADu INIUd : OFLI OLODHOUHANO 
® 2 INdNI ? *uALVNIAUOOXN-X FIQ IS NAEIdu INIUd : OCLI OLODHOUHENO 
„SILANNANII SIA NALVYNIAUOOX AIA IIS NASH9u INIYd 


092 ansoa 

I IXIN 

I+8A=6A 

O9IL'L-ANd WMO4 : !u w!(BA)AVL INIUA 
00L} NAHL 6A>8A WI 
(S’W+LA/(I)A)INI=8A 

0091 0109 

0=6X 

1+6X=6X 

‘6X*LX INIUd 

INIYd 

0991 NAHL 6X=>8X dI 
(S’1+LX/(I)X)INI=BX 
IP OL I=I uod 

or£z ansod 
u INIUd 
INIUd 

I IXAN 
!LA#(I-I)“P!(Z-Ird)aVı INIUG 
© ddlS 6 OL I=I YO4 

*(ZU)$AHDd INIUd : 0=6R : 0=6X 
O2Z/LX=LX : ZE/LA=LA 

$%I IXIN 

(SI)A=LA NAHL LA<(SI)A AI 

IP OL 1=3I Uod : 0=1X : O=LA 
INIUd : uVP &u ININA 

Ortı NAHL ufu<>$V dI ASTI O2L1 0109 : „NIEN &u INIUd NAHL uNu=$V dI 
(($SY)VNA)SUHI=SV : $V 199 

*(B)SUHI!uS(N/P) ONANHIITZ ANIF FIS NAHOISNNMu(O‘ZZ)UNnd LNIUd 

(1E)AS (ZU )aVLECıLP)XE(Y)AVLS(IL)N INIUA 

octı NaHL ZI=lf MI 

I IXIN 

(I)AS(EE)aVva!(I)X!CLe)avE INIUd 
S(I)NE(LZ)AVLE(I-I)ASCSL)AVLE(I-I)XE(Y)AVL°(I-I)N INIUA 

© dAlS ZI OL 2=I uOad 

(z/ıP)INI«2=21 

or£z anson 


!u7 +74 47444444 


(SI)X=LX NAHL LX<(BI)X AI: 


0z8l 
or8l 
0081 
06L1 
o8L! 
OLLL 
09L1 
0SLt 
obLi 
OEL 
o2Lt 
Ollt 
ey A 
0691 
0891 
oL9} 
0991 
0591 
or9ı 
029} 
0291 
0,91 
0091 
0651 
0851} 
oLSI 
0951 
0551 
orSl 
0£51} 
0251 
o1S1 
0051 
06h 
o8r1 
oLrı 
ogrL 
osyl 
ort 
0er 
oerl 
ort 
oorl 
o6£l 
08El 
oLEl 
09El 
0SEl 


40 


ABC-80/BASF 7100 


Beleuchtungskörper 





f=ıf 
09e2 NHL If=>f dI 


0922 OLODYOUYANO 
O OLODHOUNFNO : A LNANI ‘„ZLVNIAUOON-A FIa AIS NAIFDu INIUd : 0622 OLODNOUYAINO 
O OLODUOUUANO : X INdNI *„ZLVNIAUOOY-X AIQ IS NAAADu ININA : Or22 OLODUOUYENO 

O6E2 NAHL (L)LNIS>L YO I>L NO I+IL<P dI ASTA 0222 OL0OD : uiTaIANnZ ISI Sva ‘aIYT YIN INIu INIUd NAHL KA<L AI 
O OLODUOHUINO ® LP INdNI : !uNV SUFIAYONLHONFIn INIUd 

„Saa YIWWNN FIa FIS NaaWdu INIUd : LNIUd * 0222 OLODUOUUANO 

0=$I : uVP &u ININA 

062 NAHL ufu<>$V AI ISTI O2L1 OL0O9 : uNIEN &u INIUd NIHL uNu=$V dI 

(($Y)YNA)SUHO=SV : SV 199 

!(B)SUHI!uS(N/L) NA9NANZNIH UFAO NYFANY HAdUONIHONFT FIS NALHOOW“ INIUd ® INIUd ® uVP du INIUd 
0912 NAHL uLu<>$V I ASTI 0052 OL0D : uNIIN &u INIUd NIHL uNu=$V AI 

(($Y)VNA)SUHI=SV : $V 199 

!(S)SUHI!uSlN/L) YALIAMu INIUd :® INIY4 

P IXAIN 

Cd=d 

29+9=9 

I IXIN 

ld+d=d 

I=tl 

o=(z)d : O=(I)d 

rdt(sı)avzYa®(zı)avLtd:(g)avL!i-Y LNIU4 

(1-P)xzd+tI=N 

A IXEN 

((A)H-(A)H)/SENCLL)SOOI«FI+ LAS Id 

(CEI-T)V-CT)V)/CCH-TIV-RL))-CCT)O-CI-T)I)-(I=7)9=99 

Oro2 0109 

(T)d=#9 

0502 0109 

T IXAN 

0202 NSHL SE gl 

oloz2 NAHL (T)Y=lı dI 

IN OL I=7T YOd 

((A)H/Z)NIV=IL 

0502 NSHL W<Z MI 

(22x22+12=12)UdS=7 

(a-(x)a)sav=22 

(9-(a)x)savsız 

IP OL I=N YOod 

0=1d 

zd OL I=I uod 

£d OL I=L YOd 

orcz ansod 

uXnI x X "UN „(Zl)$4HO INIUd 

INIUd 

I=11 


O OLODYOUUANO ® H INdNI : *uSHOH AIA AIS NAdadu INIYA 


0822 
oLez 
0922 
0822 
or22 
oge22 
Gez2 
0222 
ole22 
0022 
0612 
0812 
OLLE 
092 
0612 
ori 
0474 
0212 
orte 
0012 
0602 
0802 
OLOZ 
0902 
0502 
oro2 
0202 
0202 
01,02 
0002 
06611 
0861 
OL6L 
0961 
0S61 
or6l 
0£61 
0261 
ol6l 
006 1 
0681 
0881 
oL8l 
098} 
0581 
orsl 
0g81 


41 


Beleuchtungskörper 


ABC-80/BASF 7100 


£ 


x 


005 66° ‘0052°6* viva 

0005 '8* *00£L‘L*'0066°‘9* viva 

0002, °5**000PL*‘#* ‘0009, 'E* viva 

0008, *'2* 000021 *"o0022‘0o'ıı viva 

weg20S/E0E2O :*Tal Haug - SD Iu INIUd : INIUd : „NOA LTTILSUAu(ZI)$UHO INIYUA 
o8r2 ASTA OLrZ (3r9 ANY (3800S9)XIIA) AI ASTI NUNLAU : (SZI)$UHO INIUd : $V 1R9 BL2I<(BIS)ANI AI 
*idlSVL ANISANADUI ILLIE IIS NANONYAuSV INIMA 

06F2 0109 : !„"9488L suropusFdır »44Tq Ts uexonıqusV LNIYA 

O9H2 NAHL BLZI<(BIG)ANI AI : (ZEISSI9*LZ)SUHI=SV 

0222 0109 : uVL &u LNIUd ISTI Otr2 NIHL uLu<>$V dI ISTI Olli 0109 : „uNIAN &u INIUd NAHL uNu=$V dI 
(($SY)VNA)SUHI=SV : $V 198 

!(B)SUH9!uS(N/P) NUSANY UHEIW HION FIS NATIOMu LNIU4 

00€E2 0109 

I=p 

ocr2 0109 

I+lLuANN I NAHOSIMZ HAWWNN 3NIM FIS BEHODF RG AH DEE 

xan 

olrz NAHL L=(I)N dI 

IP OL I=I YOd 

NUNIIU 

1=672 197 

ocrz 0109 : I=#1 

H=(P)H 

it 

=(P)X 

(LE)N 


0r52 
0882 
0252 
0152 
0082 
06r2 
o8r2 
oLre 
09r2 
0osr2 
orrz 
ocrz 
02r2 
orre 
o00r2 
06£2 
08£2 
oLez 
09£2 
0S£2 
orez 
o££2 
02£2 
o1E2 
00£2 
0622 


42 


Beleuchtungskörper 


140 
460 
470 
500 
540 
550 
570 
610 
620 
650 
680 
700 
740 
750 
790 
810 
850 
940 
980 
1010 
1070 
1090 
1110 
1160 
1280 
1310 
1430 
1440 
1600 
1660 
1700 
1720 


1750 


510 
760 
1730 
1810 


150 
150 
480 
510 
540 
550 
480 
560 
630 
660 
690 
710 
630 
760 
790 
820 
850 
730 
9% 
1020 
990 
1090 
1060 
1140 
1130 
1320 
1320 
1450 
1650 
1600 
1670 
1450 
1730 


540 
790 


1740 
2225 


2450 


1150 


1410 


2200 





550 
820 
1760 
2240 


1740 
1760 
1770 
1780 
1790 
1800 
2010 
2030 
2040 
2050 
2160 
2190 
2220 
2240 
2250 
2260 
2300 
2340 
2360 
2390 
2410 
2430 
2440 
2460 
2470 
2480 
2490 
2500 


660 
850 
1770 
2250 


1740 
1760 
1770 
1780 
1790 
1810 
1970 
1980 
2020 
1940 
2170 
2200 
2220 
2240 
2250 
2260 
2420 
1350 
2270 
2230 
2370 
2330 
2450 
240 

2490 
2490 
2470 
2170 


690 

1020 
1780 
2260 


2230 


1570 


2400 


340 
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710 
1090 
1790 


2450 


1860 


450 


1710 


2460 
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A$ 


*A$ 
A( 


B$ 


c 
c2 
c3 
4 
F( 
Fi 


H( 


H1 


1% 


I2 


*J% 
J1 


Ki 
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=140 
=980 
=1440 
=2190 
=2460 


50 


(520) 
2030 


=620 

=1730 
(520) 
=1780 
=1760 
=2010 
=1820 
=1890 
=2260 


(670) 
1260 


=1020 


=20F 
=40F 
550 
680 
790 
890 
=1030F 
=1110F 
1170 
1260 
=1520F 
1700F 
2380F 


=1470F 
=1830 
=1360 


=880F 
1140 
1230 
2060 
2290 


60 


=660 
900 
1120 
1900 
2390 


=1900F 
=2060 


=660 


140 
980 
1440 
2190 
2470 


=540 


620 
1910 
=550 
2120 
1870 
=2030 
=2080 
=2040 
2320 


(830) 
=1270 


1040 


20F 
40F 
560F 
690 
800F 
900 
1040 
1120 
1190 
1290F 
1530 
=1880F 
2410 


1470 
=2090 
1370 


890 
1150 
1240 
2140F 
2300 


660 
910 
1360 
2230 


1910 
2070 


670 


150 
990 
1450 
2200 
2480 


(570) 


630 
2070 
(570) 


2040 


2040 


=1040 
1950 


20 
40 
=580F 
700 
=840F 
930F 
1050F 
1130 
1200 
=1370F 
1540F 
2060 


1480 


1410 


910 
1170 
1260 
=2225 
2310 


670 
940 
1410 
2270 


1920 


=830 


=470 

=1310 
=2160 
=2440 
=2490 


=590 


=2120 
=590 


2070 


=1090 
2040 


=30F 
=530F 
590 
710 
850 
=940F 
=1080F 
1140 
1220 
1380 
=1580F 
2110F 


1490F 


920F 
1180 
1270 
2230 
2320 


=830 
1030 
1420 

=2280 


1950 


830 


470 
1310 
2160 
2440 


1970 


2120 
2010 


1250 
=2320 


30F 

530 

600F 
720F 
860F 
950 

1090 
1150 
1230 
1390 
1590 

=2360F 


=2210 


=1120F 
1200 
1280F 
2270 
2370 


850 

1080 
1470 
2290 


2040 


2230 


Beleuchtungskörper 


480 

1320 
2170 
2450 


1980 


2030 


=1260 


30 
540 
=670F 
=780F 
=870F 
960F 
1100F 
1160 
1250 
1400F 
1660 
2370 


=2330 


1130 
1210 
=1870F 
2280 

=2410 


=890 
1110 
1580 
2360 


2050F 


Beleuchtungskörper ABC-80/BASF 7100 


L =1960F 1970 1980 1990F 2010 2030 

M =1810 1940 

N( (670) (830) =950 1220 =1230 1230 
=1240 1380 1420 =2290 2370 

Ni =510 520 530 =570 570 580 
1960 

N2 =820 830 840 880 890 

N3 =760 780 830 870 

pP =1740 1750 1920 2070 =2100 2100 
=2130 

pi =1790 2100 

P2 =1770 1880 2060 

P3 =1750 2130 

a (780) =790 900 

a) =1950 1970 1980 2030 2040 

X =2240 2300 

x (670) =690 (830) =900 1090 1130 
1140 1160 =1170 1170 =1180 1380 
1390 1420 1470 1590 1910 =2300 

x7 =1470 1470 =1500 1500 1590 1620 

x8 =1590 1600 

x9 =1160 1180 =1190 1210 =1220 1240 
=1250 1270 =1510 1600 1620 =1630 
1630 

Y =2250 2310 

Y( (670) =710 (830) =850 =910 910 
1090 1150 1190 =1200 1200 =1210 
1380 1390 1420 1480 1660 1920 
=2310 

Y7 =1470 =1480 1480 =1500 1500 1530 
1660 

Y8 =1660 1670 1680 1690 

Y9 =1510 =1640 1670 =1690 

Z =1930 1940 1950 

21 =1910 1930 

22 =1920 1930 

29 =25340 

FNA( =50 140 470 620 980 1310 
1440 2160 2190 2440 

FNB( =60 80 

FNC =70 

En er 2 Lünge des Programms : 10869 

Lünge des Datenbereiches : 856 
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2 BESTIMMUNG VON GEEIGNETEN KERNEN UND WICKLUNGSZAHLEN 
FÜR NETZTRANSFORMATOREN 


Allgemeines 

Das Programm TRAFO bestimmt Kern, Primärseite und Sekundär- 
seite eines Transformators. Das Programm ist ausgelegt für 
bis zu 100 verschiedene Sekundärwicklungen und eine Sekun- 
därleistung von bis zu 455 W. Die technischen Daten von 14 


gängigen Transformatorkernen sind dem Programm bekannt. 


Berechnungsverfahren 

Zunächst wird die Gesamt-Sekundärleistung des gewünschten 
Transformators berechnet. Anhand dieses Wertes wird ein ge- 
eigneter Kern bestimmt. Die Kennzahlen dieses Kerns gehen in 
die weiteren Berechnungen ein. Mit dem Wirkungsgrad des Kerns 
wird die primärseitige Leistung berechnet. Weiter werden für 
die Primärwicklung sowie jede Wicklung der Sekundärseite die 


notwendigen Wicklungszahlen und Drahtdurchmesser bestimmt. 


Benutzerhinweise 


Nach dem Laden des Programms, kann es durch den Befehl RUN 
gestartet werden. Das Programm meldet sich mit der Frage, ob 
die Verarbeitung beginnen soll. Wird mit "J" geantwortet, 


erscheint die Frage: 
NETZSPANNUNG 220 V (J/N)? 


Wird hier mit "N" geantwortet, so muß die tatsächliche Netz- 
spannung als nächstes eingegeben werden, wird "J" gegeben, so 
wird 220 V dafür angenommen. Es erscheint dann die Frage: 


WIEVIELE SEKUNDÄRWICKLUNGEN? 


Es ist hier die Anzahl der Spannungen anzugeben, die an der 
Sekundärseite abgenommen werden sollen. Es darf hier maximal 


100 eingegeben werden. 


Für jede dieser Sekundärwicklungen wird nun die Spannung und 
die Stromstärke erfragt, die dort gewünscht wird. Dabei darf 


die gesamte Sekundärleistung einen Wert von 455 VA nicht 
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überschreiten. Das Programm bestimmt immer einen Kern, der für 
die geforderten Werte passend ist. Soll jedoch ein anderer 
Kern verwendet werden, kann der Name dieses Kerns eingegeben 


werden, dieser muß dem Programm jedoch bekannt sein. 


Die Namen und technischen Daten der Kerne sind als DATA- 


Anweisungen am Ende des Programms angegeben. Diese Werte 
können geändert werden, es ist jedoch immer darauf zu achten, 


daß sie bezüglich der letzten Komponente aufsteigend sortiert 
sind. Die Beschreibung eines Kerns ist aus den folgenden 


Komponenten aufgebaut: 





Name 














Induktionsfaktor 







Wirkungsgrad 








Stromdichte Primärseite 


Stromdichte Sekundärseite 






Wwicklungsfaktor 






max. Sekundärleistung 
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3 SYNCHRONISIERUNG VON VERKEHRSAMPELN 


Allgemeines 

Das Programm AMPEL bestimmt die günstigste Phase jeder Ver- 
kehrsampel einer Straße mit Gegenverkehr, damit gegebene 
Anzahl von Wagen in jeder Richtung fahren kann. Das Programm 
ist so ausgelegt, daß bis zu 100 Verkehrsampeln simuliert 


werden können. 


Beschreibung des Berechnungsverfahrens 


Das Programm benutzt den Morgan-Little Algorithmus. 


Wenn die Zykluszeit jeder Verkehrsampel gleich ist und die 
grünen Wellen der zwei Richtungen am längsten sind, haben 
Morgan und Little für eine Straße mit Gegenverkehr und 
gleicher Anzahl von Wagen in beiden Richtungen bewiesen, daß 
der Mittelpunkt der roten Phase jeder Verkehrsampel mit dem 
Mittelpunkt von entweder der roten Phase (in-phase) oder der 
grünen Phase (out-phase) aller anderen Verkehrsampeln 
zusammenfällt. 


Die Aufgabe wird deshalb in dem Fall von gleichem Verkehr in 
beiden Richtungen durch folgende Schritte gelöst: 


1. Die Phasen aller Verkehrsampeln werden zur ersten Verkehrs- 
ampel des Systems entweder in in-phase oder in out-phase so 
angeordnet, daß die größten Bandbreiten für die grünen 
Wellen erreicht werden. 


2. Die Phasen und die schmalste der erreichten Bandbreiten für 
die grünen Wellen werden gespeichert. 


3. Der erste und zweite Schritt werden mit der zweiten Ver- 


kehrsampel als Bezugsampel wiederholt. 


4. Die breiteste der gespeicherten Bandbreiten wird mit den 
zugehörigen Phasen gespeichert. 


5. Die Auswertung wird fortgesetzt mit allen übrigen Verkehrs- 


ampeln als Bezugspunkt. 
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Ergeben zwei oder mehr Auswertungsfälle die gleiche Bandbreite 
der grünen Wellen, wird das Programm den Fall speichern, der 
die größte Summe der Dauer der grünen Wellen zwischen benach- 
barten Verkehrsampeln ergibt. Dieses Verfahren hat den Vorteil, 
daß der Verkehr von und zu den Seitenstraßen berücksichtigt 


wird. 


Das Verfahren ist im Programm für ungleiche Anzahl von Wagen 


in jeder Richtung erweitert worden. 


Ist L die Breite der grünen Welle bei gleichem Verkehr in 
beiden Richtungen, Z die Zykluszeit und TI bzw. T2 der Teil 
der Zykluszeit, die die Wagen einer Richtung benötigen, um 
die Straße durchfahren zu können, ergeben sich folgende Fälle: 


(1) Ist Ti oder T2 gleich Null, wird nur die eine Richtung 
synchronisiert. Ist (TI + T2) » 2 > 2 - L, kann sowohl bei 
T1 # 6 als auch bei T2 # 6 keine Lösung erreicht werden, 
weil die Straße die vorgegebene Anzahl von Wagen nicht 


aufnehmen kann. 


(2) Ist (TI + T2) -» 2 < 2 -» L und sowohl TI # Ö als auch 
T2 # 6,wird das Ergebnis bei gleichem Verkehr in beiden 
Richtungen dadurch verbessert, daß die Dauer der grünen 
Welle in jeder Richtung (Li und L2) unterschiedlich wird. 
Um den unterschiedlichen Verkehrsfluß am günstigsten auf- 
nehmen zu können, muß L1/L2 = T1/T2 erfüllt werden. 


Hinweis für den Benutzer 


Das Programm besteht aus drei Teilen. Der erste Teil gibt eine 
Einführung zum Programm, der zweite Teil gibt eine Beschrei- 
bung der Eingabe der Daten und der dritte Teil ist das eigent- 


liche Berechnungsprogramm. 


wird die Einführung oder die Beschreibung der Dateneingabe er- 
wünscht, muß direkt nach dem Laden des Programms in den RAM- 
Bereich der RUN-Befehl eingegeben werden. Wird weder die Ein- 
führung noch die Beschreibung der Dateneingabe gewünscht, muß 
vor dem RUN-Befehl die Eingabe der Daten als DATA-Anweisung ab 


Zeile 3128 eingegeben werden. 
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Die Eingabe hat folgendes Format: 
N1,H1,581,C1,V1,V2,Y(1),R(1),Y(2),R(2)...Y(N1),R(NI) 


Bedeutung der Parameter 















Anzahl der Verkehrsampeln 





H1 Kleinste Zeit zwischen der Durchfahrt zwei 


einander folgender Wagen (Headway) in s 





Geschwindigkeit der Wagen in m/s 








Zykluslänge der Verkehrsampeln in s 





Anzahl der Wagen in den zwei Richtungen 





Der Abstand der n'ten Verkehrsampel zur ersten 


Verkehrsampel 





Die Dauer der roten Phase der n'ten Verkehrsampel 





Nach dem Starten des Programms durch den RUN-Befehl folgt die 
Meldung: 


WÜNSCHEN SIE INFORMATIONEN (1-3)? 





Einführung ist erwünscht 










Beschreibung der Dateneingabe ist erwünscht 





Das Rechenprogramm soll sofort ablaufen, 


die Daten sind bereits eingegeben 





Bei der Ausgabe werden zuerst die Daten ausgedruckt 


ANZAHL ABSTAND GESCHW. ZYKLUS FAHRZEUGE 
AMPELN SEC M/SEC _SECS HINWEG HERWEG 
'n1! 'y1' 151° 197 Sa ya 
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Danach folgen die Ergebnisse: 









BANDBREITE Bandbreite der grünen Welle 


HINWEG der einen Richtung in s 







Bandbreite der grünen Welle 
der anderen Richtung in s 


BANDBREITE 
HERWEG 










ABSTAND Der Abstand der Verkehrsampel 


METER zur ersten Verkehrsampel (Y(n)) 





ROTPHASE Die Dauer der roten Phase der 


SEC 






Verkehrsampel (R(n)) 





GRÜNVERZÖGERUNG 
SEC 






Phasenverschiebung des Anfangs 


der grünen Phase 






Testbeispiel 


Die Synchronisierung folgender Strecke wird untersucht: 


7,82km 





O 0,52km 2,52km 3,92km 6,64km 8,52km 


SEETMAREEEE" essen 


250 Wagen pro Stunde 100 Wagen pro Stunde 
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01 =180 =220 450 560 970 1600 
2420 2430 2470 2610 2620 
D =570 630 =650 650 660 =670 
670 680 740 
D$ =170 170 180 290 
69 =490 1450 1460 2340 
H1 =180 =200 500 510 2470 
I =20F 20F 20 =30F 30F 30 
=40F 40F 40 =270F 280 290 
300 310 320 330F =440F 450 
460 470 480F =550F 560 840 
900 1430F =2190F 2200 2210 2220 
2240 2250 2270 2280 2300F =2590F 
2600 2610 2630 2640F 
J =550F 560 690 700 730 740 
750 760 770 780F =1510F 1520 
1530 1540 1550F =1580F 1590 1600 
1610F =1670F 1680 1740 1750F =1760F 
1770 1780 1790 1800 1810 1820 
1830F =1900F 1910 1920 1960F 
*J% 60 
K =850F 860 870 880F =940F 950 
960 970 980 1040 1410F 
Li =350 =840 1530 1560 1570 2140 
=2380 2380 
Ni =180 =190 260 270 440 530 
550 850 930 1510 1580 1670 
1760 1900 2170 2180 2200 2380 
2470 2590 
N2 =580 590 =630 640 =990 1000 
=1050 1060 =1100 1340 =13580 =1690 
1700 =2200 2220 2230 2250 2260 
2280 2290 
N3 =930 940 =2170 2190 
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PC 


a 


Q9 
R( 


Ri 
R2 


R3 


R9 
51 
S2 


Ti 


T2 


U 


u2 


vi 


v2 


w( 


w 
x 


Y( 


FNA( 
FNB( 
FNC 


FND 
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(260) 
17709 
1910 


(260) 
1590 


=140 


(260) 
470 
1530 
2140 


=520 


=950 
1220 


=960 
1260 


=250 
=180 


=590 

=1060 
2230 
2370 
2620 


=500 
1520 


=510 

=1120 
1240 
1690 
1740 


=980 
1030 


=1040 
1090 


=180 
1500 


=180 
1500 


(260) 
870 


=540 


(260) 
1680 


(260) 


1600 
2630 


=50 
=60 
=70 
=80 


=690 
1780 
1920 


=280 
2210 


150 
=290 
560 


1560 
2270 


970 
1240 


970 
1270 


460 
=210 
600 
1070 
=2240 
=2390 
2630 


1450 
1540 


1440 
1130 


1260 
=1710 


990 
1120 


1050 
1370 


=230 
2160 


=240 
2160 


=700 
=1590 


760 
=870 


=290 
2180 


170 
80 


=730 
1790 


=860 
=2220 


=320 


1590 
=2280 


1140 
1260 


1130 
1310 


=470 
560 

=640 

=1700 


2260 
2410 


=1460 


1480 
1140 


1290 
1710 


=1010 
=1070 
360 


2510 


360 
2510 


=740 
1680 


=770 
1520 


=310 
2240 


860 
1800 


1040 
2220 


=450 
740 
1780 
2280 


1150 
1290 


1140 


490 
970 


650 

1710 
=2270 
=2600 


1480 


1490 


1150 


1330 
1720 


1010 


1070 


380 


370 


750 


790 
1530 


560 
=2250 


980 


1810: 


=1540 
=2230 


450 

950 

1790 
=2290 


1170 
1330 


1180 


1600 


=1000 
=1940 
2290 
2610 


=1490 
2320 
1170 


=1370 
=1730 


1020 


1080 


410 


420 


760 


1540 


970 
2250 


Länge des Programms 
Länge des Datenbereiches : 


=1740 
1820 


1540 
2610 


460 
960 
1800 
2600 


1200 


1200 


2470 


1010 
=2210 
=2350 
=2620 


1490 


1180 


=1680 
1730 


=1030 


=1090 


520 


520 


770 


=1600 


1570 
=2260 


Verkehrsampeln 
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4 ANALYSE VON WASSERLEITUNGSNETZEN 


Allgemeines 

Das Programm ROHRNETZ bestimmt den Wasserfluß und den Druck- 
verlust in einem vermaschten Rohrleitungsnetz mit Hilfe des 
Hardy-Cross-Verfahrens. Das Programm ist ausgelegt für bis zu 
25 Maschen und 200 Rohren, wobei eine Masche aus maximal 

25 Rohren bestehen darf. Diese Einschränkung kann durch eine 
Erweiterung der Felder in den Feldanweisungen des Programms 
geändert werden. 


Berechnungsverfahren 

Das Programm berechnet durch ein Iterationsverfahren aufgrund 
geschätzter Ausgangswerte des Wasserflusses den tatsächlichen 
Fluß und den Druckabfall in einem Netz von Rohren verschiede- 
ner Länge, Durchmesser und Rohrreibungswerte. 


Der Druckabfall P(I,J) eines Rohres J in der Masche I wird 
nach folgender Formel berechnet: 


1,85 
P(1,9) = L(I,J) .„ QI,J) 
(0,2785-C(I,J)) ’ D(1,J9) 
wobei 
L(I,J) = Länge des Rohres 
D(I,J) = Durchmesser des Rohres 
C(I,J) = Reibungswert des Rohres (Hazen Williams Koeff.) 
Q(I,J) = Geschätzter Durchfluß des Rohres 


Der Fluß ist im Uhrzeigersinn als positiv, im Gegenuhrzeiger- 
sinn als negativ definiert. Der Druckabfall der einzelnen 
Rohre in jeder Masche wird unter Berücksichtigung des Vor- 


zeichens algebraisch addiert: 


ee) 
J 
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Bei korrekter Schätzung des Durchflusses aller Rohre einer 
Masche ist F(I) für diese Masche gleich Null. Bei ungenauer 
Schätzung ist F(I) ungleich Null. F(I) wird als Schließungs- 
fehler bezeichnet. Der Benutzer muß vor der Berechnung einen 


Toleranzfaktor als obere Grenze für diesen Schließungsfehler 


angeben. 


Mit Hilfe der Druckabfälle und der Schließungsfehler werden 
die geschätzten Durchflüsse korrigiert. Der Korrekturfaktor 
AQ(I) für die Masche I ist: 


Kosten 28 EF (2) 


P (1,9) . 
Pine 
J 


Die Durchflüsse in jeder Masche werden korrigiert unter Be- 
rücksichtigung des Vorzeichens. Das Programm berechnet danach 
mit den so korrigierten Flüssen korrigierte Druckabfälle. 
Dieses Verfahren wird iterativ fortgesetzt bis alle Schlies- 
sungsfehler unter dem verlangten Toleranzfaktor liegen. 


Benutzerhinweise 


Das Programm wird in den RAM-Bereich geladen. Es besteht aus 
zwei Teilen. Der erste Teil gibt eine Anleitung für die Ein- 


gabe, der zweite Teil ist das eigentliche Berechnungsprogramm. 


Wird die Anleitung erwünscht, muß direkt nach dem Laden des 


Programms RUN angegeben werden. Wird die Anleitung nicht er- 
wünscht, müssen vor dem RUN-Befehl die Eingabedaten als DATA- 


Anweisungen ab Zeilennummer 1746 eingegeben werden. Vor der 


Eingabe muß jede Masche und jedes Rohr numeriert werden. 


Als erste Daten müssen die Anzahl der Maschen M und der 


Toleranzfaktor T der Schließungsfehler eingegeben werden: 


1746 DATA M,T 


Danach müssen die Daten gruppiert nach den Maschen nachein- 


ander eingegeben werden. Die erste Zeile jeder Datengruppe 


64 


Wasserleitungsnetze ABC-80/BASF 7100 


enthält die Anzahl N der Rohre in der Masche: 
NNNN DATA N 


Jede nachfolgende Zeile der Gruppe enthält die Angaben über 
ein Rohr in der Masche 


NNNN DATA PP, L, D, C, Q 


Bedeutung der Parameter: 


M Anzahl der Maschen 

T Toleranzfaktor der Schließungsfehler 
Anzahl der Rohre in einer Masche 

PP | Rohrnummer 

Länge des Rohres in m 

Durchmesser des Rohres in m 

Hazen william Konstante des Rohres 

Schätzfluß in m3/s 


o|nlolr 


Die Flußrichtung eines Rohres von einer bestimmten Masche 
gesehen wird durch das Vorzeichen des Schätzflusses festge- 
legt, wobei der Fluß im Uhrzeigersinn positiv und im Gegen- 
uhrzeigersinn negativ definiert ist. 


Die Eingabedaten haben danach folgendes Format: 
1746 DATA M, T 

NNNN DATA N 

NNNN DATA PP, L, D, C, Q 

NNNN DATA PP, L, D, C, Q 1. Masche 


NNNN DATA PP, L, D, C, Q 
NNNN DATA N 
NNNN DATA PP, L, D, C, Q 


P 2. Masche 


NNNN DATA PP, L, D, C, Q 
etc. 
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Nach dem RUN-Befehl fragt das Programm, ob, der Benutzer die 
Anleitung wünscht. Sind die Daten eingegeben, wird "N", im 
anderen Fall "J" eingetippt. Bei der nächsten Meldung des 
Programms kann durch das Eintippen von "J" eine Liste mit den 
eingegebenen Daten und Schätzflüssen (assumed flow) nach der 


Nummer (LP) der Maschen ausgegeben werden. 


Nach der Berechnung werden die Zahlen der ausgeführten 
Iterationen angegeben. Danach wird in eine Liste gruppiert 
nach den Maschen (loop) für jedes Rohr (pipe) der Fluß (flow) 
in m/s und der Druckabfall (head loss) in m und in m pro 
1000 m ausgegeben. 


Testbeispiel 


Folgendes Netz wird untersucht: 


1U/s 





Ms TOLls SUs SUs 
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Vıva 
Vava 
NOd 


IXAN 


099) OLODUOUUANO 
0591 OLODUOHUINO 


0E91 OLODHOUUINO 


(PI)A LNdNI : !u(W) UISSIWHOUNGd NAd AIS Nadadu INIUd : 0991 OLODNOUNANO 


(LFI)A INaNI : !uUaWWNNYHON AId FIS NAAHDu INIUA 


029) OLODUOHUANO 


INIUd : (I)d OL I=L Yod 

(I)d INdNI : !uTHVZNYYHON AIQ ulussIA THIS Und IS NATTIu(ZI)$UHI ININA : 0091 OLODUONHENO 
W OL I=I YOd 

and : „ESZ0S/E0EZO : "Tal HEWD - S 9 Iu LNIUd ® INIUd : „NOA LTTILSUIu(ZI)$UHD INIYA 
304‘0'C9059 INOA 

I IXan 

089) ans0H 

L ıXaN 

en INIu4 
*(OE)AVLE(LI)D!(OS)avL!(LtI)d°(OL)AVLS(LII)NSI ININd 
(I)a OL I=P uod 

| V (S/wO)SSNTE NY NSu INIYd 

INIUd : „NANOILYUILI u!9°uHOYN DONNSOTu(ZL)$UHD LINIUd 


0261 
o161} 
006 1 
0681 
0881 
oL8l 
0981 
0581 
or8ı 
o£81 
0281 
or8l 
0081 
06L1 
08L} 
OLLI 
09.1 
0SLl 
obLı 
0£Ll 
Selı 
02Lı 
Olll 
00L} 
0691 
0891 
019} 
099} 
0591 
org 
0291 
0291 
or9L 
0091 
06$ 1 
g85} 
0851 
OLSL 
0951 
0551 
orsı 
0851 
0251 
o1S} 
00$1} 
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Wasserleitungsnetze 


o82l 


orgı 
doLSı 
osyı 
08£El 
ogzl 
oz 
dolol 
026 
o£ 


0001 


oLzı 


0£9} 
orst 
orrı 
OLEL 
Ole 
dO601= 
086 
016 
Joe 


OLlı 


or91= 
0£6 


0S91= 


098 


0521 


0291 
[37 
doctı= 
dogeı= 


40801 


ollLı= 


019 


oral 
dolLgı 
oL9L 
0251 
doztı 
doret 
oLlt 
0901 
0$6 
or 

02 
ostt 
0gs1 
0g0L 
oLlt 
ostt 
096 
099 


056 


00Lt 


00+ 


doz£cı 
og2L 


099 
0091 
do6rl= 
le} 21 
oLzı 
ort 
0S0oL 
06 
dor 
do2 
ort 
opli= 
0£01= 
OLlI= 
ost = 
0£6= 
089 


0£6= 


0691 


0891 


00€} 
dozzı= 


0591 
dOo6S1= 
Jolrl 

06£1 

0921 

oetı 
dorol= 

0€£6 
dor= 
doz= 
oc, ı= 

(0£9) 

0201 = 

ollı= 

001 1= 

(029) 

059= 

(029) 
05 

0891= 
A 
0691 
ollt 
ollt 


0951 
ol 


vı 


“5 


cd 
ba 
Ya 
sa 
“9 
$V+ 
sv 
ozLı 
ollt 
o00L} 
069 1 


0891 





0621 


0L8 


0.91 


0991 
059} 
or9L 
0£91 
0291 
0091 
089 
o8El 
og2} 
0921 
oLzı 
052} 
091 
osrt 
016 
091 
Oll 
09L 
099 
0L9 
099 
059 
021 
021 
019 


099} 
0591 
or9ı 
0291 
0291 
0091 
06S1 
oor1 
0zeE1 
Ole 
00E1 
oLzeı 
ost 
0£01 
066 
088 
OLL 
081 
069 
019 
099 
059 
029 
ort 
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£L9 
0688 


0SL 059 


saydrslequsgeıg sap adueT 
suwelFolg sap sBue] 


08= ANd 
0L= ONd 

08 09= )aNd 
oll 09= )VNd 
o8r1= 0SE1= 67 


016 


o82l 


0£S1 
oLzeı 


0191 
0021 


09E 1 
0£91= 


0s21 
dolel 


049} 
0851 
00or1 
0521 
oc 

086 


006 


ospt 
082 1= 


o£ıt 


ooP1 
OLlt 


0091, = 
oz 


0£9 


022 
orst 


och 
00£1 


0£91 


dozSı= 


O6£1 
olet 


dozıı= 


096 


068 


00£1 


oorL 
orzt 


096 


oorL = 
oEtl 


0251} 
050} 


029 


0601} 
086 


086 
os2l 


0291 


dogyl 


oB£l 


dooz = 
doLoL 


056 


018 


021 
09, 
osel 


08£1 
olzı= 


096= 
ost 


O6£1 
086 


ort 
026 


0$1 


0651} 
orol 


056 
096 


0%6 
oLzı 


dolgL 
Jgolgı= 
osyı 
dOLEI= 
dostl 
0901 
06 


0O9L= 
Oll 
olt 
0SL 
oL2L 


00€} 
0901 = 


0$S6= 
0L9= 


O6E1= 
0£6= 


OLE 
016= 


ort 
o6rl 


0£6= 
056 


0291= 
0£6= 


0521 


0991 
dossı 
dortı= 
docet 

OLtt 
dosol= 

0£6 


0001 
00L= 


069= 
ol 
0SL= 
061 1= 


00E1= 
(0£9) 


(0£9) 
099= 
0991 = 
os£L 
(029) 
0851 


or2ı 
(029) 


06= 


742 
099= 


(029) 
or6= 


0gSı 
(029) 


dorzi= 
09 


0591 
orst 
dort 
oLzı 
ort 
d066 
do26= 


yy 
IL 
%Lx 
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Dauerkalender 


von Achim Stößer 


Im Taschenrechner + Mikrocomputer Jahrbuch 1981 veröffentlichte 
W.-R. Haberditz ein Programm zur Wochentag-Berechnung für den 
TI-59. Hier nun ein ähnliches Programm, wobei es allerdings 
nicht so sehr um das Programm selbst, sondern um seine ver- 
schiedenen Darstellungsarten geht. In Fachzeitschriften oder 
Büchern trifft man uneinheitliche Auflistungen an, die vor allem 
für den (Noch-) Nicht-Fachmann oft unübersichtlich oder verwir- 


rend sind. 





Flußdiagramm © 


Teen]? 
Dee 
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Diese Zusammenstellung des "Dauerkalenders" als 

- Flußdiagramm, 

- Struktogramm und 

- BASIC-Programm für den HP 9830 

soll den Einblick in die verschiedenen Darstellungsweisen er- 
leichtern. 


(1) Das Flußdiagramm entspricht den allgemein üblichen Diagram- 
men im wesentlichen. Die Entscheidungsfelder wurden in Anlehnung 
an Rechnerprogramme so aufgebaut, daß "F" ("False", nicht er- 
füllt) den folgenden Schritt ausführen läßt, während "T" ("True", 
erfüllt) den Sprung bewirkt. 


(2) Das Struktogramm ist ebenfalls den üblichen Darstellungen 
nachempfunden. Die logischen Verzweigungen jedoch sind mit Hilfe 
seitlich herausgeführter Pfeile gekennzeichnet. 


Input D,M, Y 


Y/4 # [Y/a]? 

Y/100 # [Y/100]? 
Y/400 # [Y/400]? 

ı| Z:= [(306 x M - 324)/10] 


xX:=X+D+Z+(Y-1)X 365 + [(Y - 1)/4] 
- [{Y - 1)/100] + [(Y - 1)/400] 


X := X mod 7 = X - [X/7]x 7 


(3) Die Variablen sind (erste Spalte: Bezeichnung in den Dia- 


Struktogramm 





















grammen und im BASIC-Programm, zweite Spalte: Bedeutung): 


D u Tag 

M z Monat 

Y - Jahr 

Xı 2 = Arbeitsvariablen 
x=1 = Arbeitsvariable 


Dauerkalender HP 9830 





(4) Der Codeschlüssel zur Umwandlung von X in den Wochentag ist 
[6) 1 2 3 4 5 6 X 

So Mo Di Mi Do Fr Sa Dotring(* 

(5) Das BASIC-Programm ist in Minimal-BASIC mit String-Erweite- 
rungen geschrieben. Die anschließende Auflistung der Variablen 
mit den zugehörigen Zeilennummern erfolgte durch den Befehl 
"XREF". 


I REM & 
REM "Dauerkols 
REM % Er 
DIM DsC 10] 
































BEEF 
DISP'"DRUERKALENDE NR" 
MAIT Saas 
FRINT 
PRINT 
DISF "Tass Monats Jahr 5 
INPUT IDeMs' 
IF Dii OF D>3i OF Mi or Mo12 OF D#EINTO OF MAINTM Or V#INTY THEN 1a 
IF M <= 2 THEN 210 
IF Yo4#INTENW45 THEN 146 
IF WS LSORINTCOS ER THEN dc 
IF W4aS# INT 4ER THEN 196 
Hal 
Z=EINTEC OBEN 324 1 100 
GoTo 
ZeiM-1#21 
D+2+.7-19#365+ INT CV 1949 -INTCr VL 1 + INTF N - 104 
INTCH ? 
FOR Isa TOM 
REAL D$ 
NE®T I 
WRITE (15 Der"D"."M"."V" wors ist oder wird ein "D&"." 
FORMAT ZF2 S.H 
REM "RESTÜRE": Zurweckcetzen der Datei 
RESTÜRE 
GOoTo 
a DATA rrtas"s"Montaa's Tırnstaa"”s "Mittwoch", " Donnerstas"s"Freitas"s"S 
END 
D$ 4a 250 Zr 
I 115 126 1206 120 128 220 Era 
M 116 128 126 1208 120 146 195 zıa za 
i 114 128 128 Su 156 150 166 176 175 220 za 
Zaun rn] era 
130 155 228 ZEH 2308 234 230 24H 
E 1290 218 220 
I 240 ze 
Der 29, 2. 1950 wars ı=zt oder wird ein Freitosa. 
Der 1 3. 1980 wars i=t sder wird ein Somstog, 
ler 1 1. 2000 wars ı=t oder wird sın Samstaa, 


Der 12. 18. 1492 wars ist oler wird ein Mittwoch, 
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Erweitertes Programm 






























16 FEM 35 
zu FEM 
&13] 
40 
Sa 
58 
ni) 
23 
EI) 
1a DISPF "Aussabe: MÜHRT := 1 5 TAG ı= 2" 
11a INPUT F 
120 IF P#1 AND F#2 THEN Sc 
13a IF F=1 THEN 418 
146 
1560 
led DISP "Tass Maornats Jahr" 
17a INFUT IsMs' 
189 IF Dil OF D>31 OF Mi ort 12 OF DRINTD OF M#INTM ÜrR V#INTYW THEN 16 
136 RESTÜFRE 
20 
1 





4RINTCY4 THEN Ins 
GARINTON-AGEH THEN . Se 


4a THEN nk 











D+ez+ 1 9#385+ INT CV 1949 - INTE CV -LRR + INTO VL 
INTCH-TI#T 

Isa TO % 

FERD I 





"m." mars 121 oder wird eın "DE"." 






GOTO 
DATA 






























49 

DISF "Monats 

INFUT Ms 

Mi Or Milz OR MAINTM : FOS#HINTW THEN 41a 
I=1 





FES 

FÜR H=1 TOM 

FERD I. D1 

HE®T N 

IF MRZ OF Vo 4c= INT 4 ES 4RINTEN 4 THEN SA 
r1=23 

HFEITE 15» De nd ne Er 

FORMAT Es" Fe DZ 






AAMNAMNERLEELLeLLLR 


FFINT TAEIS-SLEN DE SH IHTUS TVo Lad 
MEITE 15520 17 10 UL. 

FFIHT o Di Mi In Fr “un 

T=4-36NH# +6 

FFIHT TRET+3S 

FÜR D2=1 Ti 

MEITE 15 E1M DES 

FÜRMAT F2.0 

IF T+DE-INTCLT+OE 0 > TEEN nd 
FRINT " " 


HE=T DE 
FFINT 
SOoTo a6 


EHD 
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I$ 46 E43] 35 4 u4u 4 

F 116 126 126 12H 

D 178 158 120 12H 155 za 356 440 

M 178 158 12H 15H Des] ia 2EH zEn sa yaH 4:0 
43H 430 +30 4ru San 

N 170 1540 zen ZEN oe ]%] 24H ERTT zan 230 
za za gan 4:0 Sad San San san SI 
54a 
zu 255 can an EisIs) EisI%] 306 EB sa sy 

€ zeu 234 za 

1 3180 330 

N 478 490 

Il 420 sıa san 

T dnd3] su BEH Bon 

I2 S30 Bau Kan nz 4 

ler 1. 1. mars 12 when wird ein Gamzstaa 

Der 24. 12. 3333 wor» 121 br vird sın Donnerztoaa, 


(6) Zuletzt wurde das Dauerkalender-Programm dahingehend erwei- 
tert, daß man nicht nur einzelne Tage, sondern auch Kalender- 
blätter eines ganzen Monats oder sogar Jahres (wenn man 12 Mo- 
nate hintereinander ausdrucken läßt) abrufen kann. Die Zeilen 
80 - 150, 340 (Unterprogrammrücksprung) und 390 - 660 wurden 
dem ursprünglichen Programm hinzugefügt (siehe "erweitertes 
Programm"). wird in Zeile 100 weder 1 noch 2 eingegeben, werden 


zusätzlich zwei Leerzeilen ausgedruckt (Zeilen 80, 90, 120). 


Beim Monatsausdruck werden zunächst Monat und Jahr eingegeben 
(Zeilen 410 - 430), dann wird der Wochentag des Ersten dieses 
Monats ermittelt (450), danach werden der Monatsname und seine 
Länge eingelesen (460 - 510, Daten 390 - 400). Die kompliziert 
aussehenden Zeilen 520 - 550 dienen dazu, die Querstriche aus- 
zudrucken und den Monatsnamen und das Jahr - gleich, ob Mai 
oder Dezember - in die Mitte - mit gleichem Randabstand - zu 
setzen (siehe Beispiele). Die Variable T errechnet und setzt 
die Leerstellen vor dem ersten Tag (570, 580) und bricht am 
Zeilenende ab (620). 


77 


HP 9830 


Beispiele 
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Mai 
Mo Di Mi 5a 
z 
| 3 
11, 12:17 5 
19:19:22 23 
EI 262 es] 











Mo Di Mi Da Fr Sa 50 
a TE 
gs 1a 11 12 13 14 

15 16 17 18 19 z8 21 

22 23 24 25 26 27 25 

29 38 


farm 
non 





LOW CW ne 
m jmid 
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Stundenplangestaltung 
für die Schüler der Reformierten Oberstufe 


von Peter Frahm 


Die Reform der gymnasialen Oberstufe hat die Schule mit er- 
heblichen Organisationsaufgaben belastet. Bedingt durch die 
freie Fächerwahl der Schüler ergeben sich keine festen 
Klassenverbände mehr, da im allgemeinen zwei Schüler keine 
identische Fachzusammenstellung haben. Wie kommt es zu dieser 
Situation? Der Schüler hat je nach Jahrgang aus einem Angebot 
von ca. 17 Fächern 2 Leistungskurse zu wählen. Aus ca. 20 
Fächern wählt er etwa 9 Grundkurse. Dies führt zu einer 
Vielzahl von Kombinationsmöglichkeiten der Fächer, so daß 

bei den etwa 100 Schülern eines Jahrgangs im allgemeinen 
keine zwei gleiche Stundenpläne zu erwarten sind. Da es in 
der Oberstufe 3 Jahrgänge gibt, sind für 300 Schüler indivi- 
duelle Stundenpläne zu erstellen, während es bei der alten 
Form der Oberstufe bei 15 Klassen mit 20 Schülern nur 15 


Stundenpläne waren. 


Welche Hilfe kann der Computer bei der Bewältigung dieser 


Aufgabe leisten? 


Da es sich bei diesem .Problem im wesentlichen um das Sor- 
tieren und Auszählen größerer Datenmengen nach vorgegebenen 
Kriterien handelt, kann die Bearbeitung durch den Computer 

zu einer erheblichen Zeitersparnis führen. Auch die übersicht- 
lich gestaltete Ausgabe von Listen, die für das reibungslose 
Funktionieren des Schulbetriebs in großer Zahl benötigt 
werden, kann auf Grund der erfaßten Daten vom Rechner mit 


Hilfe eines Schnelldruckers übernommen werden. 


Im folgenden wird zunächst in einem Flußdiagramm der schema- 
tische Ablauf der computerunterstützten Stundenplangestaltung 
dargestellt: (Bild1I) 
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Fachwahl 












achschlüsse Ausgabe Eingabe 
Name korrigierter 
achschlüsse Fachschlüsse 







Auszählen 
der gewählten 
achkombinatione 








Ausdruck 
Dreieckslistg 





Eingabe 
Kurswahl 




















Kursschlüsse Ausgabe Eingabe 
icht erlaub Name korrigierter 
? Kursschlüsse Kursschlüsse 





Ausgabe 
Listen 


Bild 1 


Flußdiagramm Stundenplangestaltung 
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1. Erfassung der Vorwahlen 


Das Programm für die Vorwahl ist so konzipiert, daß die 
Wahlen von bis zu 150 Schülern pro Jahrgang erfaßt werden 
können. Der Schüler wählt die von ihm geforderten Grund- und 
Leistungskurse, welche durch einen dreistelligen Schlüssel 
festgelegt sind. Der Name, Tutor und sämtliche Fachschlüssel 
eines Schülers werden von der Sekretärin der Schule über das 
Tastenfeld im Dialogverkehr in den Zentralspeicher des 
Computers eingegeben. Die Fachwahl wird in einem 2-dimensio- 
nalen Bereichsspeicher, die Namen und die Tutoren je in einem 
1-dimensionalen Bereichsspeicher abgelegt. Die Bereichs- 
variablen werden in einer Jahrgangsdatei auf einer Floppy- 


Disk gespeichert. 


2. Kontrolle der gespeicherten Fachschlüssel 


Da eine Fachwahl nur bei exakter Angabe der Fachschlüssel 

vom Computer erkannt werden kann, müssen die Angaben der 
Schüler und die Eingabe über das Tastenfeld auf mögliche Ab- 
weichung von den vorgegebenen Fachschlüsseln überprüft werden. 
Zu diesem Zweck befinden sich alle möglichen Fachschlüssel 

in einer Fächerverzeichnisdatei, so daß ein Programm die 
Fachwahlschlüssel der Schüler mit den vorgegebenen Fach- 
schlüsseln vergleichen kann und bei Abweichungen die Schüler- 
namen mit den nicht erlaubten Fachschlüsseln über den Drucker 


ausgeben kann. 


Ein Korrekturprogramm ermöglicht im Dialogverkehr den Abruf 
des Schülernamens und anschließende Korrektur der entsprechen- 


den Fachschlüssel. 


3. Erstellung der Kursblockung 


Die Kursblockung muß gewährleisten, daß zwei von einem be- 
liebigen Schüler gewählte Fächer nicht zur gleichen Zeit 

unterrichtet werden sollen. Es ist also nach der Fachwahl 
der Schüler festzustellen, welche Fächerkombinationen von 
keinem Schüler gewählt wurden. Genau diese Fächer dürften 


dann zur gleichen Zeit im Stundenplan erscheinen und bilden 
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somit einen Block (B i 1 d 2). Das Auszählen der Kombinationen 
leistet das Programm '"'F 4" (B i 1 d 3). Die Ergebnisse werden 
in einem x - y Raster (B i 1 d 4) ausgegeben und dienen zur 


Erstellung der Kursblockung. 


TOMSCHULE SCHLESWIG 24.06.82 
13. JAHRGANG 


DATEI: 93/38/82 


KURSVERZEICHNIS DES 13. JAHRGANGS 


BLOCK NK FACH ABK, LEHRER ABK. 
A 
1 BIOLOGIE Zar FRAU DR. SCHARFEKANT  SPK 
2 DEUTSCH 3An EVERS Ev 
3 ENGLISCH 3AE FRAU THEILE TL 
4 ERDKUNDE ZAEK HERMANN HR 
5 GESCHICHTE 2A6 HUSLAGE HU 
6 MATHEMATIK ZAm DIR. ULBRICHT UL 
E 
7 BIOLOGIE 3ER BUSCHE EU 
8 CHEMIE 3BC WOLLSCHLAEGER wo 
9 ENGLISCH 3BE MUELLER MUE 
19. ERDNUNDE 3BEK SCHROETER SR 
11 FRANZ. A. 3BFA SRIESE GRI 
12 FRANZ. F. 3EFF DR. LEUFOLD LF 
13 PHYSIK 3BF FRAHM FRA 
c 
14 BIOLOGIE 3CK DUESEN oW 
15 DEUTSCH ach HUSLAGE HU 
16 PSYCHOLOGIE 3CrS FRAU SCHOFNBORN SOE 
D 
17 BIOLOGIE 30B FRAU WILL UL 
18 DEUTSCH 00 ZAHOW ZA 
19 ENGLISCH SE KIAWE KLA 
E 
20 DEUTSCH 3EI SCHROETER SRT 
21 GESCHICHTE 3E6 SKIERKA SKI 
22 LATEIN F. 3ELF DR. VOGT vo 
23 MATHEMATIK 3EM BERGEN BE 
24 DEUTSCH 3FI TOLLKNAEFFER TK 
25 FRANZ. A. aFFA FRAU FRIEDRICH FRI 
26 FRANZ. A. 3FFF FRAU FRIEDRICH FRI 
27 LATEIN A. 3FLA DR. VOGT vo 
28 MATHEMATIK 3FM KUEHN KUE 
6 
29 CHEMIE 36C BUSCHE EU 
30 GESCHICHTE 366 DIR. HARTMANN HT 
31 FHYSIK 36P DR. ULBRICHT UL 
32 ERDKUNDE ZHEK NAWRÜCKT NA 
33 GESCHICHTE 3HG HERMANN HR 
34 _ RECHTSKUNIE IHRK DIR. THODE THO 
Bild 2 Ausdruck Kursblockung 
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S REM FROGRAMMNAME "F4” 

5 REM FAECHERKOMBINATIONEN DER LEISTUNGSKURSE 

10 DIM A150) 257 B$ (150,143 3,C0$ (150) 3, F$ (35) 372030) 
20 SELECT FRINT V0OS:FRINT HEX (030AOAOA) 

30 INFUT "NAME DER FACHWAHLTIATEI. 22.2..." DK FRINT 
40 INFUT "NAME DES FACHVERZEICHNISSES...."sF$EFRINT 
50 INFUT "NR DES JAHRGANGS. a unennnnnnnne „"»5$:2FRINT 
60 INPUT "DATUM. zunuonnnnonnennnnnenen nn. 1 18 
SELECT FRINT 215 (95) 
FRINT "DOMSCHULE SCHLESWIG” 5:SFRINT TAB (60) 7 T$ 
FRINT 5$5”. JAHRGANG” 

FRINT "DATEI: "SI$:FRINT SFRINT 

FRINT HEX(OE)SFRINT TABL) 5 "FAECHERKOMEINATIONEN DER LEISTUNGSKURSE” :FRINT 
FRINT HEX(OE) SFRINT TAR(IS)5S$5". ZAHRGANG”:FRINT :FRINT 
REM xx LADEN DER FACHWAHLDATEI x. 

DATA LOAD IC OFEN F I$ 

DATA LOAD TC AO N 

DATA LOAD DC Es +N 

TATS LIAL DC ISO »N 

REM #*% LADEN DER FACHVERZEICHNISTATEI ur 
LATA LOAD IC OFEN F F$ 

DATA LOAD TC F$OHKHKl 

FOR M=1 TO KLSFRINTUSING 220,F$ CM) 5 :NEXT MSFRINT 


yanı 
AwwwT 


FEM xx AUSZAEHLEN TIER KOMBINATIONEN x%% 
FOR M=1 TO Ni 
FOR I=M+1 TO Ki 
FOR F=1 TU N 
FOR J=1 T0 2 
IF ESCFrIICIFECM) THEN 370 
IF I<>M+1 THEN 310 
ZUW=Zim + 
FOR ü=1 T0 2 
IF ESCFrWEIFECID) THEN 350 
Z(I5=2(D+l 
GOTO 380 
SO NEXT Q 
>» 5010 380 
I NEXT J 
NEXT F 
NEXT I 
REM *#* AUSIIRUCK DER LISTE “r* 
FRINT TAR(4*M-4) 5 
FOR L=M TO KL:FRINTUSING 430,Z(L)5:NEXT LEFRINT F$ CM) SPRINT 
Krrt- 
Z(M)=O:FOR L=M+1 TO K1:Z(L)=0:NEXT LENEXT M 
FRINT HEX (0C) 
ENL 





Bild 3 Programm zum Auszählen der Fächerkombination 
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DOMSCHULE SCHLESWIG 24.06.82 
13. JAHRGANG \ 
DATEI: F/3/4/82 
FAECHERKOMBINATIONEN DER LEISTUNGSKURSE 
13. JAHRGANG 
DEU ENG FRA FRF FRG LAA LAF GRI MUS KUN ERD GES MAT FHY CHE BIO REL FHI STH REK FSY 
17- 6- 2- 2- 0- 0- 09- 0- 09- 09- 0- 09- 0- 1- 0- 6- 0- 0- 0- 0- 9-DE 


28- 1- 2- 0- 0- 0- 0- 0- 0- 8- 2- 3- 0- 1- 5- 0- 0- 0- 0- 0-EN 


0- 0- 0- 0- 9- 09- 09- 0- 0- 0- 0- 0- 0- 0- 09-LA 
De de ee De De ie ee 09er 05 0ER 

(0 EEE © 1 SE: ZSSEEER 0: SEE 12 SEE » 5, EEE + 1230 + SEE + ou + Sue 7 Se 2 127 

0- 0- 0- 0- 0- 0=- 0- 0- 0- 0- 0-  O-KU 

= De. Br Be elde Ne dere DS DHER 


7>.0= 0°. de 35 0 dee 0 d=GE 


Bild 4 Ausdruck Fächerkombination 
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4. Kurswahl 


Auf Grund der Kursblockung und des Stundenplanrasters 
(B i 1 d 5) wählt der Schüler seine Kurse und stellt sich da- 
mit seinen individuellen Stundenplan zusammen. Hierbei be- 


dient er sich eines 4-stelligen Schlüssels, z. B. 


- Jahrgang Block Fach Kurs 
3 E L F 


- 1. Stelle Der Schüler ist im 13. Jahrgang 

- 2. Stelle Der Schüler hat im Block E Unterricht, d. h. 
Mittwoch, 3. und 4. Stunde, Montag, 6. Stunde 

- 3. Stelle Der Schüler hat das Fach Latein gewählt 

- 4. Stelle Der Schüler hat im Kurs Latein Unterricht für 


Fortgeschrittene. 


KURSBLOCKUNG 13. Jahrgan Schuljahr 1982/83 























Bild 5 Stundenplanraster 
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Ähnlich wie bei den Vorwahlen werden die Daten im Dialogver- 
kehr eingegeben und anschließend auf Zulässigkeit der Kurs- 
schlüssel geprüft. 


5. Ausdrucken der Listen 


Die Gesamtliste enthält die Schüler eines Jahrgangs, ihre 
Tutoren und ihre gewählten Fächer (B i 1 d 6). Die beiden 
ersten sind die Leistungsfächer, das dritte und vierte die 
weiteren Abiturprüfungsfächer. Neben den Kursschlüsseln sind 
dies die Merkmale, nach denen Kurslisten auf Grund eines 
entsprechenden Sortierprogramms "K 13" (B i 1 d 7) erstellt 


werden können. 


- 1) Listen für die Leistungskurse 

- 2) Listen für die Grundkurse mit Angabe, ob der Schüler 
das betreffende Fach als Prüfungsfach gewählt hat 
(Bild8ß) 

- 3) Tutorenlisten, aus denen die Tutoren die Namen der 
Tutanden und deren Kurswahlen entnehmen können 

- 4) Zensurenlisten, in denen die Fachlehrer die Halbjahres- 
zensuren unter den entsprechenden Kursschlüsseln ein- 
tragen. Mit Hilfe dieser Listen werden die erworbenen 
Zensuren (Punkte) in den Computer eingegeben, um hieraus 
auf Grund eines hier nicht beschriebenen Programms die 
Fachhochschulreife und die Abiturzulassung zu errechnen. 


- 5) Listen mit persönlichen Schülerdaten 
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DOMSCHULE SCHLESWIG 24.06.82 
13 „ JAHRGANG 
DATEI: K/3/8/82 


KURSWAHL DES 13 - TAHRGANGS 


NR. NAME VORNAME TUT Li L2 63 G4 65 66 67 68 67 G10 611 CG12 Ei 


1 SCHUELERNAME 1 TG 3AEK 3EBF 3FFF O3HG 3CD 3EM ST 

2 SCHUELERNAME 2 GRA 3AD 3BE 3DE 3HEK 366 SL 

3 SCHUELERNAME 3 3AM 3BC 3CD 3HG SA 

4 SCHUELERNAME 4 GRA 3AM 3BEK 3CER 3DD 36CG 

5 SCHUELERNAME 5 KA 3AD 3BE 3EM 3HEK 3CEH 316 SV 

6 SCHUELERNAME 6 TE 3AE 3EER 3HEK 3KTH SV 3EG 3FD 3CPS 
7 SCHUELERNAME 7 PL 3AD 3BE 3CH 3EG 3HEK SR 

8 SCHUELERNAME 8 TG 3AM 3BEK 31IG 3DD 3CB 36P SL 

9 SCHUELERNAME 9 WL 3AE 3BEK 3FD CR 3HG SA 


10 SCHUELERNAME 10 TK 3AEK 3ER 3FD 3C6G 3DE 3EM SR 

11 SCHUELERNAME 11 3AM 36F 3EG 3DD B3HRK SV 

12 SCHUELERNAME 12 WR 3AM S3BEK 3FFA 3KTH 3GPF 3ED 316 SL SH 3DE 
13 SCHUELERNAME 13 STR 3AD 3EEk 3DE SB3IEK 36G S3HRK SH 

14 SCHUELERNAME 14 SFK 3AR 3BEK 3CD 3KTH 3FM 316 SR 

15 SCHUELERNAME 15 WR 3AD 3ER 3IEK 3KTH 3DE 366 SV 

16 SCHUELERNAME 16 STR 3AE 3BFA 3HG 3DER 3FD 36C SV 

17 SCHUELERNAME 17 HU 3AE 3BEK 3CD 3DE 3EM 3HG SA 

18 SCHUELERNAME 18 GRI 3AB 3EFA 3EM 3FD 3HEK 316 5A 

19 SCHUELERNAME 19 HU 3AG 3BE ICH 3KTH 3FD 3IFS SV 

20 SCHUELERNAME 20 FU 3AEK 3EBFF 3CR 3DD 3FLA 36G SL 

21 SCHUELERNAME 21 BU ZAEK 3ER 3FD 3EM 3HG 3CPS SR SL 2CK 
22 SCHUELERNAME 2? SRT S3AEK 3BFA 36C 30H 3ED 316 SL 

23 SCHUELERNAME 23 BU 3ZAD 3EK 3IEK 3HG 3DE 3CFS SH 3FM 

24 SCHUELERNAME 24 WO 3AEK 36C 3ELF 3IG 3DD 3CRk SF 

25 SCHUELERNAME 25 TL ZAE 3BEK ICH 3D0D 3FLA 3IG 3EM SF 

26 SCHUELERNAME 26 SPK 3AB 3EFF 3HEK 3IG 3CFS 3ED SA ST 

27 SCHUELERNAME 27 WL ZAM 3BE 3FFA 3HG 3DD 36P 3CFS SG 2KRE 
28 SCHUELERNAME 28 PU ZAM 3EC 3ELF 3HG 3FD ICP SV 

29 SCHUELERNAME 29 TL 3AE 3BEK 3DD 3CkR 3EM 3HG SH 

30 SCHUELERNAME 30 SFK 3ZARK 3BE 3ELF 36G 3CD 3FFA 2IK SR 

31 SCHUELERNAME 31 HU 3AG 3ER 3CD 3KTH 3DE 3FM 3HEK SL 

32 SCHUELERNAME 32 ME ZAEK 3BE ICH 3KTH 3EM 3FD SL 

33 SCHUELERNAME 33 WO ZAR 3EC 3ELF 3IG 3DD ZKFH ST 

34 SCHUELERNAME 34 UL 3AM 3BE 36P 316 3FFA 3DD 3CPS SV 

35 SCHUELERNAME 35 GRA 3AM 3EF 3 3DE S3HEK 3ED 366 SL 

36 SCHUELERNAME 36 HT ZAR 3BEK 3DE 3KTH 3ED 3CG SF 

37 SCHUELERNAME 37 KA 3AD 3EFF 3CH 3HEK 3EG 3FLA 3IPS SV 

38 SCHUELERNAME 38 SFK 3AB 3BE S3IEK 3KTH 3FD 366 SA SL 

39 SCHUELERNAME 39 SFK 3ARB 3BE 3IEK 3KTH 3FD 366 SA SL 

40 SCHUELERNAME 40 GRA 3AEK 3ER 3FD 3KTH 3EM 3HG SR SA 

41 SCHUELERNAME 41 KA 3AM 36P_ 3EG 3FD 3DE 3IEK 3HRK SV 

42 SCHUELERNAME 42 BU 3AD 36E 3HG 3KTH 3ELF 36C 3CPS 

43 SCHUELERNAME 43 KA Z3ZAR 3BC 36G 3ED 3FM SS 2KPH 2LK 

44 SCHUELERNAME 44 KA 3AEK 3ER 3CD 3KTH 3IG 3FM 3ELF SH SL 
45 SCHUELERNAME 45 SKI 3AM A3EE 3GC S3HEK 3CR 3DD 3EG 3IPS SA 
46 SCHUELERNAME 46 HT 3AE JIBEK 3CHR 3DD 366 SL 

47 SCHUELERNAME 47 HT 3AD 3BE 3EM 3HEK 3GF 316 SA 

48 SCHUELERNAME 48 KE ZAD ZBE 3DE 3IEK 36G ICFS SL 

49 SCHUELERNAME 49 SFK 3AK 3BEK 3FM 3DD 3GC 3IG SH 

50 SCHUELERNAME 50 FL 3AEK 3BFA 3CR 366 3IPS SA 


Bild 6 Gesamtliste 
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d zE M EIN; 


10 
20 
30 
40 
so 
60 
70 
80 
0 
100 
110 
120 
INT 
130 
140 


M FRÜGRAMMNANE "K13” 
-LAUSDIRUCK TIER KURSE” 


DIM Agi130) 20, B$ 113013) 47C$ (120) IH F$20,Kh$4+L$20 
SELECT FRINT 005:FRINT HEX (030A0AOA) 





INFUT "NAME TER DATEI......- “Dis: FRINT 
INFUT "NR. DES JAHRGANGS... ." »S:FRINT 
INFUT "DATUM. ouceene. ee TR 


DATA LOAL IC OFEN F I 
DATA LOAL IC A$/)»N 
DATA LOAL TC B$O»N 
DATA LOAD IC CH) «N 
F=0 
FRINT HEX (030A) 
FRINT TAR(4) 5" NACH DEM LETZTEN FACH IIES JAHRGANGS 


INFUT "FACH. suenennere nennen „"sF$SFRINT 
IF F$="ENIDE” THEN 450 


150 INFUT "ABKUERZUNG. 22 rennen. KSEFRINT 


160 
170 
180 
190 
200 
219 
220 
230 
240 
250 
260 
270 
280 
290 


INFUT "FACHLEHRER. se oen nun .." rl $ 

SELECT FRINT 215(90) 

FRINT "DOMSCHULE SCHLESWIG" SEFRINT TAR(60) 5 T$ 
FRINT S5". JAHRGANG” 

FRINT "DATEI: “OS: FRINT SPRINT SPRINT 

FRINT HEX(OE) SFRINTUSING 220,K$ Hr F$rL$ 


JESEE SaaLunnsuuU En BLU LEHE Muss shLu aan auu ne 
wre Were ET FrrrTTeTEET 


FRINT :FRINT 

FRINT HEX(OE)SFRINT TAB(10)555”. JAHRGANG“ 
PRINT SFRINT 

FOR HM=1 TO N 

FOR L=1 TO 13 

IF K$=R$ (M»L) THEN 309 

NEXT L:G0TD 380 


«i 
4 
« 
4 
BI 
4 
bi 
Pi 
«i 


300 F=F+1 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


FRINTUSING 320 
Vars erreertr 


IF S5(=2 THEN 37 
IF L=3 THEN 410 
IF S(=3 THEN 37) 

IF L=4 THEN 430 

FRINT 

NEXT M 

FRINT HEX(OC) :SELECT FRINT 005 
GOTO 100 


4“ 
—_ 
“+ 
‘> 
“+ 


410 FRINT ” 3. FRUEFUNGSFACH” 


420 


GOTO 380 


430 FRINT ” 4. FRUEFUNGSF ACH“ 


440 


G0TO 380 


450 ENI 


TOMSCHULE SCHLESWIG 


13 
TAT 


« JAHRGANG 
EI: K/3/8/82 


3ELF LATEIN F FACHLEHRER 


SO Sonnen >une 


mo 


Bi 


88 


13 . JAHRGANG 


ENDE EINGEBEN” :FRINT FR 


Bild 


7 


24.06.82 


SCHUELERNANE 24 wo 3. FRUEFUNGSFACH 
SCHUELERNANME 28 FU 3. FRUEFUNGSFACH 
SCHUELERNANME 30 SFK 3. FRUEFUNGSFACH 
SCHUELERNANE 33 Wo 3. FRUEFUNGSFACH 


SCHUELERNAME 43 BU 
SCHUELERNAME 45 KA 


SCHUELERNAME 53 GRA 3. FRUEFUNGSFACH 


SCHUELERNAHE 57 GRI 
SCHUELERNAME 70 UL 
SCHUELERNAME 7& FU 
SCHUELEFNAME S? STR 


Do 


» FRUEFUNGSFACH 
FRUEFUNGSFACH 
FRUEFUNGSFACH 


Sortierprogramm 


ld 8 Ausdruck Kursliste mit Angabe der Prüfungsfächer 
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6. Pflege der Datei 


Zum Führen einer Datei sind grundsätzlich 4 Programme nötig. 

Dies sind: 

- 1. Neueingabe einer Datei (hier Schülername, Tutor, Kurs- 
wahlen) 

- 2. Ergänzung der Datei durch weitere Schüler 

- 3. Änderung von Daten 


- 4. Löschen eines Schülernamens mit sämtlichen Daten. 


Da eine Datenverarbeitung so gut ist, wie die Pfkge der 
Dateien, müssen die im Schuljahr anfallenden Änderungen 
möglichst schnell in den entsprechenden Dateien unter Pro- 
grammkontrolle geändert werden. Zu diesen Dateien gehören: 
- 1. Kursverzeichnisdatei 

- 2. Kurswahldatei 

- 3, Persönliche Schülerdatendatei (Name, Anschrift ...). 


7. Der Rechner 


Die hier beschriebenen Programme wurden an der Schule ent- 
wickelt. Sie sind in der Programmiersprache BASIC geschrie- 
ben und laufen z. Zt. auf einem Rechner der Firma Wang. 

Dieser hat einen Arbeitsspeicher von 16 KB, ein Disketten- 
laufwerk und einen Matrixdrucker. Die Schule besitzt ebenfalls 
einen CBM 3032 sowie einen Apple II, aufdenen die Programme 
nach geringfügigen Änderungen ebenfalls laufen können. 
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Taschenrechner + Mikrocomputer 
Jahrbuch 1983 


Anwendungsbereiche — Produktübersichten — Programmierung — Entwicklungs- 
tendenzen — Tabellen — Adressen. Herausgegeben von Harald Schumny. Mit 133 Abb. 
33 Tab., 40 Programmen und 400 Adr. 1982. V Ill. 295 S. 18,5 X 24,5 cm. Kart. 
Das Taschenrechner + Mikrocomputer Jahrbuch ist inzwischen zu einer gut einge- 
führten Einrichtung geworden. Die im Oktober 1982 erschienene vierte Auflage 
wird nach vorliegenden Erfahrungen mindestens 20 000 deutschsprechende Leser 
zwischen Dänemark und Südtirol sowie Holland und der DDR erreichen. 

Das Grundkonzept ist nach wie vor, umfassend zu informieren, Trends aufzuweisen 
und Diskussionsanstöße zu geben. 








Nach bewährtem Muster besteht auch diese Ausgabe 
wieder aus drei Teilen: 


Fachteil mit Beiträgen zu den Themen Taschenrech- 
ner, Peripheriegeräten und Speichertechnik. 


Programmsammlung für programmierbare Taschen- 
rechner und Mikrocomputer, geordnet nach Typen. 


BNRENBBBE 
Datensammlung mit Produktübersichten mit Preisan- 1 
gaben, Adressen, Bücher, Zeitschriften, Produktneu- BEBBBONBG 
heiten. 








ee 











Vieweg Programmbibliothek 
Mikrocomputer 


Die Bände der Programmbibliothek erscheinen getrennt für programmier- 
bare Taschenrechner und Mikrocomputer und enthalten ausgetestete 
Programme zu jeweils einem ausgewählten Themenschwerpunkt, der in 
einem einführenden Beitrag vorgestellt wird, oder für einen aktuellen 
Rechner. Dabei wird der jeweilige Entwicklungsstand der Rechner- 
technik berücksichtigt. 


Die Programmbibliothek ist mithin als Ergänzung der Programm- 
sammlung im Taschenrechner + Mikrocomputer Jahrbuch anzusehen. 


Die Programme sind, ausgehend von einer konkreten Aufgabenstellung, 
in der Regel in ihrem Ablauf beschrieben und durch ausgeführte Beispiele 
ergänzt. Wenn es nötig scheint, sind auch theoretische Grundlagen für 
die Programmierung erläutert. 


Durch die graphischen, tabellarischen oder in Textform gegebenen 
Ablaufbeschreibungen wird die Übertragbarkeit auf andere Rechner- 
typen erleichtert, so daß die wirtschaftliche Nutzung der einzelnen 
Bände möglich ist. An Hand gleichartiger Aufgabenstellungen wird 
fallweise auch die unterschiedliche Arbeitsweise verschiedener Rechner- 
typen aufgezeigt. 


Der Herausgeber bemüht sich ständig um eine sorgfältige Auswahl und 
Begutachtung der eingesendeten Programme. Trotzdem kann keine 
Gewährleistung für vollständige Fehlerfreiheit übernommen werden. 
Programme zeigen ja oft erst nach vielen Testläufen mit wechselnden 
Parametern und Grenzbedingungen logische Fehlreaktionen und Sack- 
gassen. 


Für die Fälle, die zu Anregungen oder Kritik führen, sind in jedem Band 
die Anschriften der einzelnen Autoren angegeben. Wir erhoffen uns 
dadurch einen regen Gedankenaustausch zwischen Autoren und 
Benutzern der Programmbibliothek, der sich für beide Seiten als nützlich 
erweisen dürfte. 


ISBN 3-528-04218-4 
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